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Preface 


The  purpose  of  this  study  was  to  determine  whether 
reversing  present  learning  strategies  through  a  system  of 
computer  programs  and  simple  procedures  designed  to  increase 
the  involvement  of  the  student  and  teacher  in  the  learning 
process  would  result  in  a  more  meaningful  learning 
experience  . 

As  a  student  of  mathematics  I  have  always  preferred 
seeing  an  example  of  the  mathematical  concept  or  procedure 
before  any  equations  were  written  on  the  chalkboard.  It  has 
also  been  my  experience  that  once  a  professor  has  finished 
presenting  a  lecture  or  mathematical  proof,  the  first 
question  asked  by  students  is  "Can  you  show  us  an  example?" 
The  motivation  for  conducting  this  study  was  based  on  my 
perception  of  how  students  of  mathematics  prefer  to  learn, 
and  a  desire  to  make  the  learning  of  mathematics 
understandable,  more  enjoyable,  and  less  tedious  for  the 
student  . 

My  association  with  Dan  Reynolds  has  transformed  my 
general  perceptions  into  a  study  which  I  hope  will  motivate 
teachers  and  students  to  seek  more  effective  teaching 
techniques.  Professor  Reynolds'  knowledge  of  learning 
theory,  enthusiasm  for  educating,  and  desire  to  improve  the 
quality  of  the  educational  experience  has  been  invaluable  in 
this  effort  to  help  my  fellow  students. 


Stone  W.  Hansard 
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AFIT/GSM/ENC/90S-12 


Abs  t  r a  c  t 


This  c t ti-dy  evaluated  students  '  responses  to  a  teaching 
method  designed  to  involve  students  and  teachers  of 
mathematics  in  a  meaningful  learning  experience  using  a 
system  that  allowed  the  student  to  participate  in  discovery 
learning.  The  system  was  comprised  of  a  computer  program 
that  motivated  visualization  of  concepts  of  matrix  algebra, 
and  a  procedure  that  encouraged  the  students  to  verbalize 
each  concept,  create  an  algorithm  for  the  matrix  operation, 
and  discover  a  mathematical  formula  that  described  the 
process  for  each  operation.  The  teaching  system  is  based  on 
modern  learning  theory  and  reflects  several  recommendations 
made  by  the  Commission  on  Standards  for  School  Mathematics 
to  the  National  Council  of  Teachers  of  Mathematics  (NCTM) . 

Of  the  40  students  who  participated  in  the  survey,  over  87% 
felt  the  matrix  program  was  more  interesting  than  an 
ordinary  lecture,  80%  felt  the  system  was  more  fun  than 
reading  a  textbook,  and  92%  indicated  they  would  use  a 
learning  tool  similar  to  the  matrix  computer  program  if 
given  the  opportunity.  Over  82%  of  the  students  believed 
the  matrix  teaching  system  helped  them  learn  matrix  algebra, 
while  72%  felt  the  teaching  system  helped  them  learn  matrix 
algebra  better  than  they  would  have  under  typical  classroom 


conditions . 


AN  INTERACTIVE  SYSTEM  OF  COMPUTER  GENERATED  GRAPHIC 


DISPLAYS  FOR  MOTIVATING  MEANINGFUL  LEARNING  OF 
MATRIX  OPERATIONS  AND  CONCEPTS  OF  MATRIX  ALGEBRA 


I •  Introduc t i on 


General  Issue 

A  common  belief  held  by  students  as  well  as  educators 
is  that  the  educator  is  a  repository  of  concepts,  and 
learning  is  the  act  of  pouring  those  concepts  into  the 
waiting  vessel  that  is  the  student.  When  this  belief  is  put 
into  practice,  the  result  is  a  passive  student  whose  sole 
responsibility  is  the  memorization  of  concepts,  a  student 
that  has  no  active  involvement  or  experience  in  the  learning 
process  . 

There  exists  a  theory  of  learning  proposed  by  Joseph  D. 
Novak  and  D.  Bob  Gowin  based  on  the  works  of  David  Ausubel, 
Joseph  Schwab,  and  John  Dewey  that  rejects  the  view  of 
learning  described  above.  Novak  and  Gowin  perceive  learning 
as  a  "change  in  the  meaning  of  experience"  and  assert  new 
knowledge  cannot  be  constructed  without  the  the  active 
involvement  of  the  student  in  the  learning  experience.  They 
ask  the  question  "How  can  we  help  individuals  to  reflect 
upon  their  experience  and  to  construct  new,  more  powerful 
meanings ( 1 : xi ) ? " 
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One  tenet  of  the  theory  contends  that  the  question  just 
posed,  or  any  question  concerning  learning,  cannot  be 
adequately  addressed  "unless  we  consider  simultaneously 
questions  dealing  with.  .  .  teachers  and  how  they  teach, 

the  structure  of  the  knowledge  that  shapes  the  curriculum 
and  how  it  is  produced,  and  the  social  matrix,  or  governance 
of  the  educational  setting( 1 : xi i  )  .  " 

At  the  Air  Force  Institute  of  Technology  (AFIT)  the 
governance  is  particularly  rigid  and  the  general  curriculum 
only  slightly  less  so.  Giv.-n  these  restrictions,  and 
drawing  upon  the  theories  of  Novak  and  Gowin,  the  question 
can  be  asked:  How  can  we  help  AFIT  students  "to  reflect 
upon  their  experience  and  to  construct  new  more  powerful 
meanings"? 

Specific  Problem 

For  many  students  the  study  of  mathematics  is  an 
onerous  task;  the  concepts  can  be  very  involved  and 
abstract.  Mathematics  is  often  taught  by  rote  and  the 
student  takes  little  responsibility  for  his  learning. 

Ausubel  asserts  that  for  meaningful,  constructive  learning 
to  take  place,  the  student  must  participate  in  the  learning 
process ( 1  :  7  )  .  The  problem  becomes  involving  the  student  in 
the  learning  of  mathematics  in  such  a  way  as  to  facilitate 
meaningful  learning  which  will  cause  knowledge  construction, 
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rather  than  memorization,  and  increase  the  student's  grasp 
of  mathematical  concepts. 

The  Commission  on  Standards  for  School  Mathematics 
released  a  report  in  1989  which  suggested  that  "Traditional 
teaching  emphases  on  practice  in  manipulating  expressions 
and  practicing  algorithms  as  a  precursor  to  solving  problems 
ignore  the  fact  that  knowledge  often  emerges  from  the 
proble us ( ? • 9 ) . "  A  typical  teaching  scenario  begins  with  the 
instructor  providing  equations  to  the  students  and 
demonstrating  by  example  how  the  equations  can  be 
manipulated  in  order  to  solve  problems.  The  Commission 
states  further  that  traditional  teaching  techniques  may  need 
to  be  reversed ( 2 : 9 ) .  In  this  scenario  the  problem  or 
example  is  given  first  and  the  student  is  allowed  to 
discover  the  algorithm  and  the  related  mathematical 
expressions.  Reversing  the  current  teaching  strategies  may 
indeed  result  in  greater  student  involvement  and  deeper 
learning  . 
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Research  Ob  i  e  c  t i ve 

The  objective  of  this  study  is  to  determine  whether 
reversing  present  learning  strategies  through  a  system  of 
computer  programs  and  simple  procedures  designed  to  increase 
the  involvement  of  the  student  and  teacher  in  the  learning 
process  motivates  a  more  meaningful  learning  experience. 

Research  Hypotheses 

1.  Students  given  an  active,  as  opposed  to  passive  role  in 
learning  situations  are  more  motivated  and  have  a  more 
meaningful  learning  experience. 

2.  A  procedure  that  increases  student-teacher  interaction 
(such  as  the  VVAM  heuristic)  motivates  discovery 
learning . 

3.  The  degree  to  which  meaningful  learning  is  achieved  is 
dependent  upon  the  temperament  the  student  brings  to  the 
learning  situation. 

4.  Students  prefer  to  learn  by  reversing  the  process,  i.e., 
working  backward  from  an  example  of  the  mathematical 
process  to  arrive  at  the  mathematical  formula. 
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Scope  of  Research 


The  research  subjects  were  restricted  to  Graduate 
Systems  Management  (GSM)  students  from  the  AFIT  class 
GSM90S,  and  GSM  and  GCA  students  from  the  AFIT  classes 
GSM91S  and  GCA91S.  These  students  were  required  to  take  the 
Math  Review  for  Engineering  Managers  (MATH  291).  Only 
concepts  presented  in  this  course  were  selected  because, 
according  to  David  Ausubel,  "The  most  important  single 
factor  influencing  learning  is  what  the  learner  already 
knows.  Ascertain  this  and  teach  him  accordingly "( 3 : vi  )  . 

From  MATH  291  concepts  of  linear  algebra  (herein  called 
matrix  algebra  and  matrix  math)  were  chosen. 
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I I .  Background 


Although  there  are  many  theories  of  learning,  the 
theory  proposed  by  Novak  and  Gowin  was  chosen  for  this  study 
for  two  main  reasons.  First,  the  theory  emphasizes 
meaningful  learning  as  opposed  to  rote  learning  (heavily 
influenced  by  Ausubel)  and  second,  because  the  theory 
recognizes  that  "an  educational  experience  is  a  complex 
event "(1:6) . 

In  their  book  "Learning  How  to  Learn"  Novak  and  Gowin 
state: 


To  learn  meaningfully,  individuals  must 
choose  to  relate  new  knowledge  to  relevant 
concepts  and  propositions  they  already  know.  In 
rote  learning,  on  the  other  hand,  new  knowledge 
may  be  acquired  simply  by  verbatim  memorization 
and  arbitrarily  incorporated  into  a  persons 
knowledge  structure  without  interacting  with  what 
is  already  there.  (1:7) 

This  is  not  to  say  there  is  no  place  for  rote  learning,  but 
rather  that  there  is  a  continuum  with  rote  and  meaningful 
learning  occupying  different  positions  on  the  continuum. 
Novak  and  Gowin  also  identify  another  continuum  that  flows 
".  .  .  from  reception  learning,  where  information  is 

provided  directly  to  the  learner,  to  autonomous  discovery 
learning,  where  the  learner  identifies  and  selects  the 
information  to  be  learned( 1 : 7 ) .  Figure  1  shows  how  the  two 
continue  form  a  matrix  and  where  some  representative 
activities  fit  in  the  matrix(l:8).  Attributes  that  Novak 
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and  Gowin  associate  with  meaningful  and  rote  learning  are 


given  in  Figure  2. 


MEANINGFUL  Clarification  Well  designed  Scientific 

LEARNING  of  relationships  audio-tutorial  research 
between  concepts  instruction 

Lectures  or  most  School  Most  routine 

textbook  laboratory  research 

presentations  work 

Multiplication  Applying  formulas  Trial  and 

tables  to  solve  problems  error 

ROTE 

LEARNING  - 

RECEPTION  GUIDED  AUTONOMOUS 

LEARNING  DISCOVERY  DISCOVERY 

LEARNING  LEARNING 

Figure  1.  Representative  Learning  Activities( 1 : 8 ) 


MEANINGFUL  Non-arbitrary ,  non-verbatim,  substantive 
LEARNING  —  incorporation  of  new  knowledge  into  cognitive 
structure . 

Deliberate  effort  to  link  new  knowledge  with 
higher  order,  more  inclusive  concepts  in 
cognitive  structure. 

Learning  related  to  experiences  with  events  or 
objects  . 

Effective  commitment  to  relate  new  knowledge 
to  prior  learning. 


Arbitrary,  verbatim,  non-substantive 
incorporation  of  new  knowledge  into  cognitive 
structure . 

No  effort  to  integrate  new  knowledge  with 
existing  concepts  in  cognitive  structure. 

Learning  not  related  to  experiences  with 
events  or  objects. 

ROTE  —  No  effective  commitment  to  relate  new 

LEARNING  knowledge  to  prior  learning. 

Figure  2.  Attributes  of  Meaningful  and  Rote  Learning( 1 : 167 ) 
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A  key  word  in  the  definition  of  meaningful  learning  is 
interaction,  or  more  precisely,  knowledge  interaction. 
Knowledge  interaction  means  that  new  knowledge  interacts 
with  knowledge  a  person  already  has. 

An  example  of  knowledge  interaction  and  its  relation  to 
meaningful  learning  is  evident  in  an  ongoing  project 
conducted  by  Thomas  Banchoff  at  Brown  University.  In 
addition  to  the  usual  text  book  lectures  on  calculus,  a 
weekly  computer  laboratory  was  instituted  featuring  an 
interactive  program  called  VECTOR,  which  facilitates  the 
graphing  of  curves  and  surfaces.  Students  take  what  they 
have  learned  in  the  classroom  and  use  VECTOR  to  visualize 
curves  and  surfaces,  and  more  importantly,  they  modify  the 
program  itself  to  fit  their  needs.  When  asked  if  there 
aren’t  better  programs  available  "so  that  students  and 
teachers  won't  have  to  go  through  the  trouble  of  devising 
their  own,"  Thomas  Banchoff  states,  "No.  This  project  has 
helped  students  in  at  least  two  ways:  they  have  learned  a 
tremendous  amount  about  the  mathematics  involved  and  they 
have  seen  much  more  clearly  the  interrelationships  of 
mathematics  and  computer  s c i ence " ( 4 : 6 ) .  This  example 
illustrates  Novak's  contention  that,  "As  new  experience  is 
acquired  and  new  knowledge  is  related  to  concepts  already  in 
a  person's  mind,  these  concepts  become  elaborated  or  altered 
and  hence  they  can  be  related  to  a  wider  array  of  new 
information  in  subsequent  learning" ( 5  :  25  )  . 
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One  common  definition  of  learning  states:  "Learning 

[is]  a  relatively  enduring  change  in  behavior  caused  by 

exper ience " ( 6 : 115 )  .  Many  theories  of  learning  fail  to 

address  completely  this  concept  of  "experience".  Joseph 

Schwab  recognized  the  complexity  in  an  educational 

experience,  and  in  1973,  described  4  factors  that  are  not  ". 

.  .  reducible  to  any  other,  and  .  .  .  must  be  considered  in 

educat ing" ( 1 : 6 ) .  The  4  factors,  which  Schwab  termed 

commonplaces,  consist  of  the  teacher,  the  learner,  the 

curriculum,  and  the  milieu.  Novak  and  Gowin  describe  the 

roles  and  responsibilities  of  each  of  the  commonplaces: 

It  is  the  teacher’s  obligation  to  set  the  agenda 
and  to  decide  what  knowledge  might  be  considered 
and  in  what  sequence  [although  a]  skilled  teacher 
will  of  course  involve  the  learner  in  some  aspects 
of  the  agenda  planning.  .  .  .  The  learner  must 

choose  to  learn;  learning  is  a  responsibility  that 
cannot  be  shared.  The  curriculum  comprises  the 
knowledge,  skills,  and  values  of  the  educative 
experience  that  meet  criteria  of  excellence  that 
make  them  worthy  of  study.  The  milieu  [termed 
governance  by  Gowin]  is  the  context  in  which  the 
learning  experience  takes  place,  and  it  influences 
how  teacher  and  student  come  to  share  the  meaning 
of  the  curriculum.  (1:6) 

The  governance  and  curriculum  at  AFIT  are  possibly  the 
most  rigid  of  any  comparable  institution  with  the  exception 
of  the  service  academies.  Students  do  not  have  the  luxury 
of  determining  the  number  of  classes  they  take  during  a 
quarter,  nor  do  they  have  a  large  or  varied  selection  for 
the  few  electives  they  are  allowed.  Since  there  is  little 
likelihood  of  affecting  a  positive  change  in  the  educational 
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experience  through  governance  or  curriculum,  the  opportunity 
for  improvement  falls  to  the  teacher  and  learner. 

The  theories  of  learning  espoused  by  Ausubel ,  Schwab, 

Novak  and  Gowin,  while  not  explicitly  formulated  for  the 
learning  of  mathematics,  have  fundamental  tenets  which 
appear  to  be  surfacing  in  response  to  the  mathematics 
educating  community's  search  for  a  workable  set  of  standards 
for  school  mathematics. 

In  1989  the  National  Council  of  Teachers  of  Mathematics 
(NCTM)  established  the  Commission  on  Standards  for  School 
Mathematics  for  the  express  purpose  of  "[responding]  to  the 
call  for  reform  in  the  teaching  and  learning  of 
ma t hemat i c s " ( 2 : 1 ) .  The  Commission  was  charged  with  two 
tasks : 

1.  Create  a  coherent  vision  of  what  it  means  to 
be  mathematically  literate  both  in  a  world  that 
relies  on  calculators  and  computers  to  carry  out 
mathematical  procedures  and  in  a  world  where 
mathematics  is  rapidly  growing  and  is  extensively 
being  applied  in  diverse  fields. 

2.  Create  a  set  of  standards  to  guide  the 
revision  of  the  school  mathematics  curriculum  and 
its  associated  evaluation  toward  this  vision. 

(2:1) 

In  order  to  emphasize  the  importance  of 
mathematical  literacy,  the  "standards  articulate  five 

general  goals  for  all  students:  (1)  that  they  learn  to  » 

value  mathematics,  (2)  that  they  become  confident  in 
their  ability  to  do  mathematics,  (3)  that  they  become 
mathematical  problem  solvers,  (4)  that  they  learn  to 
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mathematical  problem  solvers,  (4)  that  they  learn  to 

communicate  mathematically,  and  (5)  that  they  learn  to 

reason  ma thema t i cal 1 y " ( 2 : 5 ) .  Underlying  these  goals  is 

the  "premise  that  what  a  student  learns  depends  to  a 

great  degree  on  how  he  or  she  has  learned  it"(2:5). 

It  is  the  "how"  in  this  premise  that  will  determine 

whether  the  student  achieves  these  goals. 

In  many  class  rooms,  learning  is  conceived  of  as  a 
process  in  which  students  passively  absorb 
information,  storing  it  in  easily  retrievable 
fragments  as  a  result  of  repeated  practice  and 
reinforcement.  Research  findings  from  psychology 
indicate  that  learning  does  not  occur  by  passive 
absorption  a lone ( Resni ck  1987).  Instead,  in  many 
situations  individuals  approach  a  new  task  with 
prior  knowledge,  assimilate  new  information,  and 
construct  their  own  meanings.  (2:10) 

This  passage  from  the  Standards  restates  almost  exactly 

certain  tenets  of  learning  theory  expressed  by  Ausubel, 

Novak,  and  Gowin  which  can  be  found  in  the  two  preceding 

sections  of  this  chapter. 

It  is  unlikely  that  rote  learning  will  result  in  the 
attainment  of  all  five  goals,  and  in  recognition  of  that 
observation,  the  Standards  state  that  ".  .  .  'knowing' 

mathematics  is  'doing'  mathematics.  A  person  gathers, 
discovers  or  creates  knowledge  in  the  course  of  some 
activity  having  a  purpose.  This  active  process  is  different 
from  mastering  concepts  and  procedures "( 2 : 7 ) .  This 
statement  is  undeniably  Ausubelian  in  nature.  The  Standards 
go  on  to  say  that  ".  .  .  instruction  should  persistently 

emphasize  'doing'  rather  than  'knowing'  [ mathemat i c s ] " ( 2 : 7 ) . 
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Again,  this  statement  reflects  the  Ausubelian  contention 

that  the  learning  arises  from  the  process  not  the  product. 

Ausubel  stated  that  "The  most  important  single  factor 

influencing  learning  is  what  the  learner  already 

knows . " ( 3 : vi ) .  The  Standards  take  this  observation  into 

account:  "We  recognize  that  students  exhibit  different 

talents,  abilities,  needs,  and  interests  in  relationship  to 

mathemat ics " ( 2 : 9 ) .  .The  Standards  were  not  created  to  be  a 

rigid  set  of  guidelines;  a  rigid  set  of  guidelines  cannot 

take  into  account  the  differing  backgrounds  of  students. 

Inflexible  standards  leave  no  room  for  the  learning 

preference  of  the  student.  Instead,  the  Standards  were 

proposed  for  three  reasons:  "(1)  to  ensure  quality,  (2)  to 

indicate  goals,  and  (3)  to  promote  change " ( 2 : 2  )  . 

Although  NCTM  believes  all  three  reasons  are  of  equal 

impor tance ( 2 : 2 ) ,  promoting  change  may  be  the  most  difficult 

to  accomplish,  particularly  when  the  change  is  radically 

different  from  the  status  quo. 

Traditional  teaching  emphases  on  practice  in 
manipulating  expressions  and  practicing  algorithms 
as  a  precursor  to  solving  problems  ignore  the  fact 
that  knowledge  often  emerges  from  the  problems. 

This  suggests  that  instead  of  the  expectation  that 
skill  in  computation  should  precede  word  problems, 
experience  with  problems  helps  develop  the  ability 
to  compute.  Thus,  present  strategies  for  teaching 
may  need  to  be  reversed ;  knowledge  often  should 
emerge  from  experience  with  problems  [italics  the 
author's].  In  this  way,  students  may  recognize  the 
need  to  apply  a  particular  concept  or  procedure  and 
have  a  strong  conceptual  basis  for  reconstructing 
their  knowledge  at  a  later  time.  (2:9,10) 
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This  thesis  draws  heavily  upon  the  theories  of  learning 
expressed  in  the  earlier  sections  of  this  chapter,  and 
agrees  with  the  premise  that  the  "present  strategies  for 
teaching  may  need  to  be  reversed."  The  remainder  of  this 
thesis  documents  the  researcher's  efforts  to  reverse  present 
teaching  strategies  and  increase  student  and  teacher 
involvement  in  order  to  create  a  more  meaningful  learning 
experience  for  the  student. 


13 


III.  Methodology 


Overview 

The  general  method  for  solving  this  research  problem 
was  through  a  quasiexperiment  in  which  40  students  from  the 
AFIT  classes  GSM91S  and  GCA91S  used  a  computer  program  and  a 
suggested  protocol  designed  to  motivate  the  learning  of 
concepts  taken  from  matrix  mathematics.  The  students 
responded  to  questions  constructed  to  measure  the  extent  to 
which  they  believed  the  visual  and  interactive  aspects  of 
the  program  and  the  use  of  the  protocol  did  or  did  not 
motivate  them  to  understand  the  concepts. 

Several  steps  were  completed  prior  to  the  actual 
experiment.  The  first  step  included  selecting  appropriate 
concepts  from  matrix  math.  Since  computer  graphics  were  to 
be  used  extensively,  concepts  that  lent  themselves  to  visual 
display  were  the  most  likely  candidates.  A  number  of 
concepts  from  linear  algebra  were  selected  from  the  AFIT 
course  MATH  291. 

The  second  step  involved  writing  the  computer  program 
that  visualized,  and  in  some  cases,  animated  the  selected 
concepts.  The  program  was  also  written  so  as  to  require  the 
student  to  become  involved  in  the  learning  process.  The 
program  was  written  in  separate  modules  (a  separate  module 
for  each  concept),  and  each  module  was  debugged  and  checked 
for  accuracy. 
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The  third  step  was  the  creation  of  a  procedure  or 
protocol  that  would  require  the  student  to  become  completely 
involved  in  the  learning  process.  The  protocol  was  also 
designed  to  guarantee  student-teacher  interaction. 

The  fourth  step  was  the  construction  of  the  question 
set.  The  questions  were  designed  to  evaluate  whether  the 
system  of  computer  program  and  protocol  helped  them 
understand  the  concepts,  and  if  so,  what  aspects  of  the 
system  were  responsible.  A  Likert  scale  was  used  to  measure 
the  participants'  responses. 

In  the  actual  experiment  the  students  used  the  program 
and  protocol  and  responded  to  the  questionnaire.  Since  the 
GSK91S  and  GCA91S  students  attended  lectures  on  the  subject 
of  matrix  math  in  MATH  291,  they  were  exposed  to  some  extent 
to  matrix  math  concepts  prior  to  the  experiment.  This 
exposure  before  the  experiment  was  not  necessary  because  the 
program  and  protocol  were  designed  to  require  no  existing 
knowledge  of  matrix  math.  The  questions  about  the 
experiment  were  not  designed  to  measure  how  well  the  student 
had  actually  mastered  the  concepts,  but  whether  or  not  the 
student  felt  that  the  program  and  protocol  helped  in 
motivating  the  learning  and  understanding  of  the  concepts. 
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Concept  Selection 


Although  a  wealth  of  mathematical  concepts  exist  which 
would  lend  themselves  to  the  programming  and  procedural 
treatment  to  be  discussed  later,  the  number  of  concepts 
under  consideration  was  considerably  narrowed  by  two 
constraints.  The  first  constraint  reflected  the  Ausubelian 
notion  that  the  teacher  should  find  out  what  the  student 
already  knows  before  beginning  the  learning  process.  This 
might  have  been  accomplished  by  surveying  the  students  with 
regard  to  their  mathematics  background,  but  since  all  of  the 
students  were  to  be  exposed  to  the  same  concepts  during  the 
AFIT  math  review,  it  was  decided  to  choose  only  from  among 
those  concepts  presented  during  the  review.  All  students 
would  have  at  least  the  minimum  concept  base  provided  by  the 
math  review.  The  second  constraint,  which  further  narrowed 
the  available  concepts,  arose  from  the  timing  of  the  AFIT 
math  review  and  the  time  available  for  data  collection  and 
reduction.  The  earlier  a  concept  was  presented  in  the  math 
review,  the  more  time  would  be  left  to  organize  the  data  and 
reflect  on  the  results  of  the  study.  The  third  constraint 
reflected  the  desire  to  share  something  with  the  students 
that  would  be  of  value  during  AFIT's  required  statistics 
sequence.  Fortunately,  written  and  verbal  critiques  of  the 
previous  year's  math  review  and  statistics  sequence 
indicated  a  specific  area  of  concern  for  many  students.  In 
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response  to  those  concerns,  concepts  from  matrix  mathematics 
were  finally  chosen. 

Operations  from  matrix  mathematics  fulfilled  the 
requirement  that  a  concept  be  readily  visualized  using 
computer  generated  graphics?  and  a  fortuitous  consequence  of 
selecting  matrix  operations  was  that  the  operations  form  a 
family  of  concepts  that  could  be  ordered  from  simple  to 
complex.  It  was  felt  that  the  student  would  gain  practice 
and  confidence  with  the  simpler  concepts  and  graduate  to  the 
more  complex. 

The  Computer  Program 

Having  selected  matrix  operations,  the  next  task 
required  the  actual  creation  of  the  computer  program.  There 
were  at  least  three  major  influences  on  the  final  program 
configuration.  First,  some  characteristics  of  the  program 
logically  followed  from  the  choice  of  matrix  operations. 
Second,  other  characteristics  reflected  certain  principles 
of  learning  theory.  Finally,  the  remaining  characteristics 
resulted  from  limitations  of  the  programming  language 
(Microsoft  QuickBASIC)  and  the  researcher's  background  as  a 
student  and  experience  as  a  programmer.  The  influences  were 
in  no  way  mutually  exclusive,  and  the  overall 
characteristics  of  the  program  resulted  from  a  combination 
of  these  influences. 
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The  logical  layout  of  matrix  operations  and  the 
researcher's  programming  experience  suggested  a  menu  driven 
system  with  menu  selections  arranged  from  simple  to  complex 
matrix  operations.  The  menu  would  allow  the  user  to  select 
a  particular  matrix  operation  at  any  time.  Figure  3 
approximates  the  main  menu  screen. 


Figure  3.  Main  Menu  Screen 
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Since  the  last  matrix  operation,  inversion,  was  the  most 
complex  and  required  several  steps,  selection  of  the 
inversion  operation  led  to  a  secondary  menu  shown  in 
Figure  4. 


MATRIX  INVERSION 

MENU 

1 . 

2  . 

DETERMINANT  of  a  MATRIX 
DETERMINANT  of  a  MATRIX 

(2x2 

(3x3 

Example ) 
Example ) 

3. 

The  COFACTOR  MATRIX 

The  ADJOINT  MATRIX 

The  INVERTED  MATRIX 

(M)ain  menu 

(Q)uit 

Make  your  selection 


Figure  4.  Inversion  Menu  Screen 

Different  matrix  operations  required  different  visualization 
formats;  however,  most  of  the  process  screens  resemble  the 
screen  depicted  in  Figure  5. 
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Figure  5.  Typical  Process  Screen 


Although  a  few  terms  from  matrix  algebra  were  defined 
by  screen  comments  where  appropriate,  in  order  to  facilitate 
discovery  learning,  explanatory  screen  comments  related  to 
the  conceptual  aspect  of  matrix  operations  were  kept  to  a 
minimum.  For  example,  if  a  student  were  to  try  to  multiply 
matrices  with  nonconforming  dimensions,  he  or  she  would  be 
informed  that  an  error  had  occurred  and  would  be  invited  to 
try  again.  The  student  would  be  allowed  to  discover  the 
principle  of  conf ormabi 1 i ty  on  his/her  own  if  possible,  or 
with  help  from  the  instructor  if  necessary.  At  this  point 
it  should  be  made  clear  that  the  computer  program  was  in  no 


20 


way  intended  to  be  a  stand-alone  tutorial  such  as  many 
Computer  Assisted  Instruction  (CAI)  packages.  In  keeping 
with  the  idea  that  learning  is  a  complex  event  that  takes 
place  in  the  context  of  the  four  commonplaces  described  by 
Schwab(l:6),  the  program  was  designed  to  evoke  student- 
teacher  interaction  rather  than  remove  the  teacher  from  the 
learning  process. 

In  order  not  to  detract  from  the  learning  process  and 
to  allow  the  student  to  concentrate  on  the  chosen  concept, 
the  program  was  designed  to  require  a  minimum  number  of  user 
inputs  and  keystrokes.  Most  menu  selections  require  only 
the  matrix  dimension(s) ;  some  menu  selections,  such  as 
matrix  transposition,  require  an  additional  input  concerning 
the  selection  of  matrix  rows  or  columns.  Once  dimensions 
are  entered,  the  program  randomly  generates  the  element 
values  (and  scalar  values  if  necessary).  Since  the  concept 
to  be  demonstrated  is  independent  of  the  matrix  values,  the 
student  is  relieved  from  the  tedious  task  of  selecting  and 
typing  in  the  values  tor  a  given  matrix.  In  the  case  where 
selection  of  element  values  has  an  impact  on  the  concept  in 
question,  such  as  selecting  elements  in  order  to  create  a 
singular  matrix,  the  program  assigns  a  probability  of 
occurrence  to  the  event  so  that  the  event  will  happen  with 
some  regularity.  For  example,  a  three  by  three  matrix  that 
is  randomly  generated  for  the  matrix  determinant  selection 
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will  be  singular  approximately  one  time  out  of  every  five 
selections . 

Once  the  matrix  operation  has  been  selected  and  the 
element  values  generated,  the  only  action  required  of  the 
student  is:  Hit  the  <Space  Bar)  to  watch  the  process.  The 
student  may  step  through  the  process  at  any  speed  he  or  she 
wishes.  When  the  process  for  a  particular  matrix  operation 
is  finished  the  student  is  given  the  choice  of  repeating  the 
same  process,  returning  to  the  previous  menu,  continuing  to 
the  next  operation  (if  it  is  part  of  a  sequence  of 
operations),  or  quitting  the  the  program.  Some  operations, 
such  as  calculation  of  the  determinant,  allow  the  student  to 
use  the  same  matrix  elements  again  and  again;  this  is  to 
allow  the  student  to  discover  that  the  same  determinant  will 
result  regardless  of  which  row  or  column  is  selected  for 
matrix  expansion.  Other  matrix  operations  generate  a  new 
set  of  elements  every  time  the  operation  selection  is  made 
allowing  the  student  to  practice  the  operation  with  a 
variety  of  element  values  and  avoid  incorrect  conclusions 
about  the  process  that  might  occur  due  to  confusing 
configurations  of  elements.  For  example,  the  student  may 
not  be  able  to  correctly  discover  the  process  of  matrix 
transposition  if  all  of  the  matrix  elements  are  the  same. 

It  is  highly  unlikely  that  repeating  the  operation  would 
create  the  same  matrix  when  the  numbers  are  randomly 
generated . 
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The  maximum  matrix  size  was  determined  by  the  text 
screen  format  (80  columns  and  25  rows)  available  on  the 
Zenith  248  microcomputers  at  AFIT.  The  screen  format 
allowed  matrix  dimensions  of  no  more  than  three  rows  by 
three  columns  in  order  to  accommodate  the  display  of  three 
matrices  simultaneously.  The  program  was  tested  on  a  number 
of  different  computer  systems.  Technical  information  is 
included  in  Appendix  A  and  the  source  code  in  Appendix  B. 

The  program  makes  extensive  use  of  colors,  blinking 
prompts,  and  some  animation.  Although  an  extensive  organon 
exists  about  the  visual  aspects  of  information  display,  this 
study  relied  6olely  on  the  researcher's  personal  preferences 
for  screen  displays  and  valuable  suggestions  from  outside 
sources  . 

The  VVAM  Protocol 

Since  the  computer  program  was  not  designed  as  a 
stand-alone  package,  a  procedure  was  developed  to  facilitate 
student-teacher  interaction.  This  procedure  consists  of 
four  main  steps:  Visualization,  Verbalization, 
Algorithmization,  and  Mathematization  (VVAM).  Herein,  the 
procedure  is  called  the  Protocol  or  VVAM  Protocol. 

Visualization .  In  the  first  step,  the  student  selects 
the  desired  matrix  operation  and  carefully  observes  the 
operation  in  action.  The  student  may  repeat  the  process  as 
often  as  necessary  and  as  slowly  or  quickly  as  desired. 
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Depending  upon  which  operation  has  been  selected,  the 
student  Day  vary  certain  parameters,  such  as  matrix 
dimensions,  in  order  to  see  if  the  observed  process  is 
consistent  through  a  range  of  matrix  sizes.  The  computer 
program  dominates  this  step.  The  teacher  can  observe  the 
process  with  the  student  and  encourage  him  or  her  to  look 
for  patterns  in  the  process  or  to  experiment  with  different 
matrix  dimensions;  however,  the  primary  interaction  is 
between  the  student  and  the  computer.  Figure  6  shows 
graphically  the  changing  role  of  the  computer  as  each  step 
of  the  VVAM  protocol  is  encountered. 


Figure  6.  The  Role  of  the  Computer  in  the  VVAM  Protocol 
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Verbalization .  In  this  step  the  student  is  asked  to 
state  in  plain  English  the  process  just  observed.  The 
suggested  technique  is  to  have  the  teacher  or  another 
student  listen  to  the  verbalization  and  try  to  follow  the 
process.  If  the  student  does  not  describe  the  operation 
precisely,  or  if  a  step  in  the  process  is  misplaced  or  left 
out,  the  teacher  can  prompt  the  student  to  be  more  exact  or 
suggest  that  the  student  visualize  the  process  or  part  of 
the  process  again.  Some  students  may  be  able  to  verbalize  a 
matrix  operation  without  returning  to  the  visualization 
step.  Others  students  may  wish  to  verbalize  as  they  observe 
the  operation  in  action  on  the  computer.  At  this  point  it 
is  unnecessary  for  the  student  to  use  terms  from  matrix 
algebra  in  the  verbalization?  it  is  only  important  that  the 
student  display  his  understanding  of  the  process  by 
accurately  describing  the  process  to  the  teacher  or  a 
partner . 

Algorithmization.  The  third  step  of  the  VVAM  protocol 
requires  the  student  to  create  a  rigorous  algorithm  for  the 
matrix  operation  under  study.  Although  knowledge  of  a 
programming  language  would  be  helpful,  only  a  a  basic 
understanding  of  the  structure  behind  an  algorithm  or 
computer  program  is  needed.  If  necessary  the  teacher  can 
introduce  the  student  to  data  structures,  input/output , 
sequencing  of  instructions,  branching  (conditional  and 
unconditional),  and  iteration  (looping).  The  student  is 


asked  to  write  down  the  algorithm  on  a  piece  of  paper  or 
chalkboard  using  any  written  sequence  of  statements  that 
fully  communicates  the  algorithm  to  the  teacher 
(pseudocode).  Once  again,  should  the  algorithm  fail  to 
precisely  describe  the  matrix  operation,  the  student  may  be 
asked  to  verbalize  the  process  in  order  to  discover  where 
the  error  occurs.  The  student  may  also  return  to  the 
computer  to  watch  the  process.  An  excellent  way  to  verify 
the  accuracy  of  the  algorithm  is  by  stepping  through  the 
algorithm  and  the  program  at  the  same  time  to  see  if  both 
yield  the  same  results  at  every  step. 

Mathematization.  The  final  step  of  the  WAM  protocol 
is  the  most  rigorous  of  all.  This  step  requires  the  student 
to  write  down  the  actual  mathematical  formula  in  algebraic 
form.  The  student  must  have  an  understanding  of  basic 
algebraic  operators,  variables,  constants,  and  the  more 
complex  operators  such  as  summation  (sigma)  and 
multiplication  (pi).  Since  each  step  of  the  protocol  must 
be  successfully  completed  before  continuing  to  the  next 
step,  the  student  should  not  have  to  go  back  any  further 
than  the  algorithm  in  order  to  write  down  a  formula  for  the 
matrix  process.  The  teacher  may  at  this  time  introduce  the 
student  to  matrix  notation. 
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Experimental  Design  Justification  and  Validity 

The  40  students  who  took  part  in  the  experiment  could 
be  considered  a  census  of  the  classes  GSM91S  and  GCA91S,  or 
a  sample  of  all  students  who  will  attend  AFIT  in  those  two 
degree  plans.  If  any  generalization  is  to  be  made,  then  the 
students  should  be  considered  a  sample,  and  some  assumptions 
should  be  made  to  be  reasonably  confident  that  any  threats 
to  external  validity  are  recognized. 

The  choice  of  population  to  which  the  researcher  wishes 
to  generalize  his  experimental  results  determines  to  a  great 
extent  the  external  validity  of  those  results;  however,  a 
case  can  be  made  for  logically  generalizing  results  to  a 
population  even  if  it  appears  that  the  sample  is  not 
representative  of  that  population. 

If  the  population  is  defined  as  all  future  GSM  and  GCA 
students,  then  there  should  be  assurances  that  the  future 
students  are  indeed  part  of  the  same  population.  The  rather 
inflexible  entrance  requirements  imposed  by  AFIT  all  but 
mandate  that  this  be  the  case.  Standards  for  undergraduate 
grade-point  averages,  minimum  requirements  for  college  level 
mathematics  courses,  and  a  minimum  number  of  slots  available 
to  other  than  U.S.  military  personnel  are  just  a  few  of  the 
restrictions  that  support  the  assumption  that  any  given 
class  of  GSM  and  GCA  students  is  a  sample  from  a  single 
populat ion . 
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If  the  population  is  defined  as  all  graduate  students 
attending  a  university  with  graduate  entrance  requirements 
similar  to  those  required  by  AFIT,  then  further  assumptions 
could  be  made  (and  tested)  to  allow  a  degree  of  confidence 
in  the  generalization  of  this  sample  to  a  wider  population. 
For  example:  it  could  be  argued  that  although  the  sample  is 
almost  entirely  military,  at  the  time  each  student  was 
earning  his/her  undergraduate  degree,  he/she  was  a  member  of 
the  same  civilian  undergraduate  population. 

It  is  apparent  that  as  this  sample  is  generalized  to 
wider  and  wider  populations,  the  external  validity  becomes 
more  and  more  questionable.  For  the  purpose  of  this 
experiment,  only  the  most  justifiable  assumptions  were  made 
to  generalize  the  results  to  a  given  population. 

The  experiment  is,  in  one  sense,  a  "separate  sample 
pretes t-pos t-tes t " ( 7 : 127 ) .  The  group  consists  of  the  GSM91S 
and  GCA91S  students;  the  treatment  is  the  exposure  to  the 
computer  program  and  protocol  designed  to  motivate  learning; 
and  the  pretest  and  post-test  are  simulated  by  a  single  test 
(Likert  survey)  that  measures  whether  the  student  believes 
his  learning  was  motivated  more,  less,  or  not  at  all  after 
the  treatment . 

Although  the  external  validity  of  this  experiment  is 
not  guaranteed,  and  in  fact,  depends  on  the  population  in 
question,  steps  were  taken  to  reduce  some  likely  threats  to 
the  experiment's  internal  validity.  First,  selection  of  the 
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measurement  questions  determines  one  aspect  of  the  internal 
validity  of  the  experiment;  this  is  one  factor  over  which 
the  researcher  has  direct  control.  The  measurement 
questions  were  designed  to  elicit  responses  to  specific 
parts  of  the  experiment  as  well  as  responses  to  the 
experiment  in  general.  A  check  on  internal  validity  can  be 
made  by  comparing  the  responses  to  both  kinds  of  questions. 
If  the  response  to  each  specific  question  is  favorable,  then 
one  would  expect  the  response  to  a  general  question,  which 
reflects  the  sum  of  the  specific  questions,  also  to  be 
favorable.  A  second  threat  to  internal  validity, 

"ma tura t i on " ( 7 ; 1 1 7 ) ,  was  moderated  by  testing  the  students 
as  soon  as  possible  after  the  completion  of  the  matrix  math 
lectures  and  the  actual  experiment.  Finally,  all  students 
were  tested  at  the  same  time  so  that  any  maturation  that 
might  have  occurred  would  be  essentially  the  same  for  all 
students  . 

Potential  threats  to  the  internal  validity  of  the 
experiment  might  arise  from  the  sequence  and  length  of  the 
question  set.  Questions  were  not  randomly  ordered. 

Questions  that  fell  into  general  categories,  such  a 
Visualization  or  Verbalization,  tended  to  be  grouped 
together.  One  possible  result  could  be  that  the  answer  to 
one  question  might  influence  the  response  to  the  following 
question.  A  benefit  to  the  question  sequence,  however, 
could  be  that  the  student  did  not  have  to  mentally  "change 
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gears"  for  each  question.  Surveys  often  ask  essentially  the 
same  question  in  a  number  of  different  ways  in  order  to 
provide  a  check  on  responses.  Because  of  time  restrictions, 
most  questions  were  asked  only  once  and  no  attempt  was  made 
to  word  questions  so  that  an  equal  number  of  positive 
(agree)  and  negative  (disagree)  responses  occurred. 
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IV .  Anal  vs i s .  Results,  and  Conclusions 


Pretesting 

Several  students  from  the  class  GSM90S  participated  in 
testing  the  Matrix  Program  and  Protocol.  The  students  used 
the  same  Matrix  Program  and  Visualization,  Verbalization, 
Algorithmization,  and  Mathemati zation  procedure  that  was 
presented  to  the  GSM91S  students.  The  reactions  and 
comments  from  the  pretest  group  were  to  be  used  to  modify 
the  Matrix  Program  and  Protocol;  however,  the  responses  from 
the  students  were  almost  entirely  positive,  so  no 
significant  changes  wtre  made  to  the  Matrix  Program  or 
Protocol.  The  most  common  reaction  to  the  System  from  the 
students  of  class  GSM90S  w'  j  :  "I  wish  [this  system]  had 

been  around  when  we  were  starting  AFIT." 

Although  the  program  and  protocol  were  not  changed 
after  the  pretest,  there  are  two  reasons  why  the  pretest  and 
actual  experiment  are  not  identical.  First,  the  GSM90S 
students  had  already  completed  the  Math  Review  and  had  gone 
on  to  use  matrix  algebra  in  the  following  statistics 
courses;  however,  any  extra  practice  accrueo  by  the  upper 
class  seems  to  have  been  entirely  moderated  by  the  six 
months  intervening  the  last  statistics  class  and  the 
pretest.  Second,  students  from  the  upper  class  were  given 
the  pretest  in  a  one-on-one  situation  while  the  lo’»er  class 
participated  in  the  experiment  as  a  group  and  not  all 
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students  had  the  opportunity  to  participate  in  the  one-on- 
one  situation. 

The  Experiment 

The  formal  presentation  of  the  Matrix  Program  and 
Protocol  took  place  over  a  two  day  period  in  June  1990.  The 
GSM  students,  numbering  25,  and  the  GCA  students,  numbering 
15,  attended  regularly  scheduled  math  lab  classes  on  the 
first  day,  and  volunteers  from  both  classes,  numbering  10, 
attended  a  second  session  on  the  following  day. 

The  first  two-hour  session  began  with  the  GSM  students. 
Because  of  the  size  of  the  class  it  was  necessary  for 
students  to  share  the  personal  computers,  two  students  to  a 
computer.  Every  student  was  given  a  copy  of  the  matrix 
program  and  a  protocol  handout  (see  Appendix  C). 

The  session  began  with  an  introduction  of  the  protocol. 
The  students  were  given  time  to  read  the  protocol  handout 
while  its  more  important  aspects  were  identified  verbally. 
Next  the  program  was  introduced.  An  animated  introduction 
screen  was  used  to  identify  the  need  for  student-teacher 
interaction  and  to  explain  that  the  Matrix  Program  and 
Protocol  were  designed  to  do  just  that.  The  students  were 
encouraged  to  browse  through  the  menu  system  and  "get  a 
feel"  for  the  program  operation.  When  the  students  finished 
experimenting  with  the  program,  they  were  asked  to  return  to 
the  main  menu  and  begin  with  the  matrix  addition  selection. 
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Per  the  protocol,  the  students  were  told  to  take  their 
time  and  to  try  and  understand  the  process  they  were 
visualizing  on  the  computer  screen.  They  were  also 
encouraged  to  start  over  whenever  necessary  and  to 
experiment  with  matrices  of  different  dimensions. 

When  the  students  felt  they  completely  understood  the 
process  of  matrix  addition,  a  volunteer  was  asked  to 
verbalize,  in  plain  English,  the  process  in  such  a  way  that 
the  process  could  be  correctly  followed  and  understood  by  an 
instructor  or  another  student.  If  the  operation  could  not 
be  followed,  the  error  was  usually  due  to  imprecise 
verbalization  by  the  student  or  the  student's  incorrect 
grasp  of  the  process.  In  the  former  case,  the  instructor 
guided  the  student  to  acceptable  verbalization  by  asking  the 
student  to  explain  the  process  in  another  way.  In  the 
latter  case,  the  student  was  asked  to  make  sure  if  the 
process  did  indeed  occur  as  verbalized  by  using  the  program 
to  visualize  the  process  once  again.  Students  were 
encouraged  to  use  the  computer  as  they  verbalized  so  that 
they  were  confident  that  their  verbalization  reflected 
precisely  what  they  were  visualizing. 

After  successfully  verbalizing  the  matrix  addition 
process,  the  students  were  given  a  short  review  to  help  them 
with  writing  a  pseudo-code  algorithm.  The  students  were 
reintroduced  to  data  structures,  input/output ,  sequencing  of 
instructions,  branching  (conditional  and  unconditional),  and 
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iteration  (looping).  A  volunteer  was  asked  to  use  the 
blackboard  and  carefully  write  an  algorithm  which  correctly 
described  the  matrix  addition  process.  Since  the  algorithm 
could  be  written  in  any  combination  of  English  and/or  a 
programming  language  known  to  the  student,  the  only 
notational  requirements  were  that  the  algorithm  could  be 
explained  and  understood.  As  with  the  verbalization  step  of 
the  protocol,  errors  either  occurred  because  of  the 
precision  required  in  constructing  the  algorithm,  or  because 
the  process  was  not  fully  understood  by  the  student.  Again, 
the  instructor  guided  the  student  through  the 
algorithmization  by  asking  him  to  double  check  the  steps  of 
his  algorithm,  or  if  the  student  had  incorrectly 
comprehended  the  process,  he  was  invited  to  return  to  the 
program  to  find  the  flaw  in  his  understanding  of  the  matrix 
addition  operation.  When  the  student  believed  the  algorithm 
to  be  correct,  he  was  able  to  check  each  step  in  his 
algorithm  with  the  corresponding  step  performed  by  the 
computer  program. 

In  the  final  step  of  the  protocol,  the  student 
volunteer  was  asked  to  write  the  mathematical  equation(s) 
that  would  represent  the  algorithm.  Since  the  students  had 
been  introduced  to  the  mathematics  package,  MathCAD,  they 
were  allowed  to  use  MathCAD  notation  if  they  preferred.  The 
students  were  reminded  that  all  algebraic  operators  were  at 
their  disposal.  No  students  had  to  go  back  any  further  than 
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the  algorithm  to  successfully  write  the  mathematical  formula 
for  matrix  addition. 

The  second  two  hour  session  was  performed  in  the  same 
manner  with  the  GCA  students,  and  a  final  five  hour  session 
was  performed  with  volunteers  from  both  classes  on  the 
following  day.  The  five  hour  session  required  no 
introduction  and  the  students  chose  which  matrix  operations 
they  wished  to  learn  using  the  program  and  protocol.  The 
students  were  encouraged  to  experiment  with  the  program  and 
protocol  for  a  week  and  told  that  they  would  be  asked  to 
answer  approximately  35  survey  questions  during  the  next 
scheduled  math  lab. 

Description  of  the  Survey 

The  survey  questions  were  written  to  elicit  responses 
in  three  main  areas.  The  first  area  dealt  with  the  actual 
layout  and  functionality  of  the  computer  program.  Since  the 
intent  was  to  design  a  program  that  facilitates  rather  than 
intrudes  on  the  learning  process,  questions  were  asked 
concerning  the  program's  simplicity,  and  functionality.  The 
second  and  largest  area  of  interest  was  the  WAN  protocol. 
Questions  in  this  area  were  directed  toward  the  four  main 
steps:  Visualization,  Verbalization,  Algorithmization,  and 

Kathematization ;  and  the  two  way  relations  between  steps. 
These  questions  were  intended  to  determine  the  students' 
feelings  about  the  usefulness  and/or  necessity  of  each  step 
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in  the  procedure.  The  third  and  most  general  area  of 
interest  was  concerned  with  the  students'  overall  reaction 
to  the  learning  experience.  Some  questions  were  asked  so 
that  the  student  could  compare  the  Matrix  Program  and  VVAM 
Protocol  with  traditional  learning  experiences  such  as 
classroom  lecture  and  textbook  reading;  other  questions 
dealt  with  the  need  for  student-teacher  interaction  and  the 
responsibilities  of  the  student  and  teacher  during  the 
learning  process. 

A  Likert  scale  format  was  chosen  to  present  the  survey 
questions.  A  computer  program  was  written  (see  Appendix  E) 
which  allowed  the  students  to  select  one  of  the  following 
responses  to  any  given  question:  Strongly  Disagree, 
Disagree,  Undecided,  Agree,  or  Strongly  Agree. 

Statistical  Test 

Background .  The  Myers-Briggs  Type  Indicator  (MBTI)  is 
a  research  instrument  that  has  application  in  learning 
theory.  If  a  teacher  can  determine  how  a  student  prefers  to 
learn,  the  teacher  may  be  able  to  use  an  appropriate 
teaching  technique.  The  MBTI  attempts  to  identify  a 
person's  psychological  type  by  ascertaining  the  following 
four  preferences: 
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1.  Does  the  person's  interest  flow  mainly  to  the  outer 
world  of  actions,  objects,  and  persons  [Extroversion]; 
or  to  the  inner  world  of  concepts  and  ideas 
[Introversion]? 

2.  Does  the  person  prefer  to  perceive  the  immediate,  real, 
practical  fact  of  experience  and  life  [Sensing];  or  the 
possibilities,  relationships  and  meanings  of  experience 
[ Intuition  ]  ? 

3.  Does  the  person  prefer  to  make  judgments  or  decisions 
objectively,  impersonally,  considering  causes  of  events 
&  where  decisions  may  lead  [Thinking];  or  subjectively 
and  personally ,  -weighing  values  of  choices  &  how  they 
matter  to  others  [Feeling]? 

4.  Does  the  person  prefer  mostly  to  live  in  a  decisive, 
planned  and  orderly  way,  aiming  to  regulate  &  control 
events  [Judgment];  or  in  a  spontaneous,  flexible  way 
aiming  to  understand  life  and  adapt  to  it  [Perception]? 
(8:13) 


Although  the  survey  questions  were  not  written  to 
address  learning  preference,  it  was  felt  that  responses  to 
certain  questions  might  reveal  a  dependence  on  psychological 
type,  particularly  as  related  to  the  Introversion  versus 
Extroversion  preference  and  the  Sensing  versus  Intuition 
preference.  All  students  in  the  sample  had  taken  the 
Indicator  test  as  part  of  AFIT  in-processing  procedures  and 
33  of  the  40  students  provided  their  MBTI  codes  when 
answering  the  demographic  questions  in  the  survey. 

Contingency  Tables .  A  procedure  from  STATISTIX:  An 
Interactive  Statistical  Analysis  Program  for  Microcomputers 
was  used  to  test  whether  responses  to  the  survey  questions 
were  dependent  on  psychological  type  as  determined  by  the 
MBTI .  A  two  by  two  contingency  table  using  a  Chi  Square 
test  for  independence  was  selected  as  the  appropriate  test. 
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For  the  purpose  of  this  test,  "Undecided"  responses  were 
omitted,  "Agree"  and  "Strongly  Agree"  were  combined  in  the 
category  "Agree",  and  "Disagree"  and  "Strongly  Disagree" 
were  combined  in  the  category  "Disagree". 

Each  of  the  survey  questions  was  tested  against  the 
students'  MBTI  for  Introversion/Extroversion  and 
Sensing/Intuition.  Most  of  the  questions  were  not  expected 
to  show  dependencies  on  psychological  type,  but  those 
questions  dealing  with  Verbalization  had  the  most  potential 
for  revealing  dependencies  on  Introversion/Extroversion 
preference  . 


I  prefer  to  THINK  privately  about  what  I  know  rather 
than  try  to  objectively  display  my  knowledge  by 
verbalization . 


Extrovert 


Introvert 


Disagree  Agree 


4 

3 

3 

17 

PEARSON’S  P-value  .0285 


Figure  7.  MBTI  Related  Responses 


At  a  significance  level  of  95%,  only  one  survey 
question  resulted  in  responses  that  indicated  dependence  on 
psychological  type  as  determined  by  the  MBTI.  Figure  7 
shows  the  survey  question  and  the  results  of  the  STATISTIX 
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test.  Note  the  P  value  is  well  below  the  .05  significance 
value . 

Results  of  the  Survey 

The  following  figures  display  the  survey  data  in  the 
form  of  frequency  histograms  and  report  the  descriptive 
statistics  on  which  most  conclusions  were  based.  The 
questions  and  results  shown  in  the  figures  represent  the 
three  main  areas  of  interest  described  in  the  previous 
section.  Appendix  F  contains  every  survey  question  with  raw 
and  statistical  data  in  the  same  format  as  seen  in  the 
following  figures. 

To  simplify  the  breakout  of  responses  into  percentages 
the  five  possible  responses  were  reduced  to  three.  Strongly 
Agree  and  Agree  were  combined  in  a  single  category  named 
Agree,  and  Strongly  Disagree  and  Disagree  were  combined  in  a 
single  category  named  Disagree.  The  Undecided  category  was 
not  changed. 

Program  Functionality .  Figure  8  shows  the  survey 
question  and  results  for  a  question  taken  from  the  first 
main  area  of  interest,  the  functionality  of  the  Matrix 
Program . 
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The  mechanical  simplicity  of  the  Matrix  Program  allowed 
me  to  concentrate  on  LEARNING  MATHEMATICAL  CONCEPTS 
rather  than  on  HOW  TO  USE  THE  PROGRAM  proper. 


RESPONSE 

FREQUENCY 

1. 

S.  Disagree 

0 

2. 

Disagree 

1 

■ 

3. 

Undecided 

2 

■i 

4. 

Agree 

21 

■■■■ 

5. 

S.'  Agree 

16 

Disagree  -  2.5 % 

Undecided  -  5. OX 

Agree  -  92.5% 

MEAN  S.D.  MEDIAN  MINIMUM  MAXIMUM 

4.300  .06869  4.000  2.000  5.000 

Figure  8.  Program  Functionality  Question 

Three  questions  specific  to  the  functionality  of  the 
Matrix  Program  were  asked  in  order  to  determine  if  the  goal 
of  designing  a  program  that  motivated  the  learning 
experience  without  complicating  the  process  had  been 
achieved.  The  responses  to  all  three  questions  indicated 
that  at  least  90%  of  the  students  found  the  program  easy  to 
use  and  helpful  in  discovering  the  essential  aspects  of 
matrix  algebra.  Another  question,  shown  in  Figure  9, 
combined  aspects  of  functionality  and  the  visualization 
process.  Again,  90%  of  the  students  found  the  program  very 
helpful  in  visualizing  matrix  operations  in  action. 
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The  use  of  color  graphics  highlighted  critical  matrix 
operations  and  helped  focus  my  attention  on  key 
activities  of  the  process  under  study. 


RESPONSE  FREQUENCY 


1. 

S.  Disagree 

0 

2. 

Disagree 

2 

■■ 

3. 

Undecided 

2 

9m 

4. 

Agree 

24 

mm* 

5. 

S.  Agree 

12 

Disagree 

-  5% 

Undecided 

-  5Z 

Agree 

-  90S 

MEAN 

S.D. 

MEDIAN 

MINIMUM 

MAXIMUM 

4.150 

.07355 

4.000 

2.000 

5.000 

Figure  9.  Visualization  Question 


The  VVAM  Protocol ♦  Since  this  was  the  most  important 
area  of  interest  and  most  closely  tied  to  the  research 
objective,  the  survey  results  concerning  the  VVAM  protocol 
are  discussed  in  terms  of  the  original  hypotheses.  Each 
research  hypothesis  and  a  brief  analysis  of  findings  related 
to  that  hypothesis  are  presented  below. 

1.  Students  given  an  active,  as  opposed  to  passive  role  in 
learning  situations  are  more  motivated  and  have  a  more 
meaningful  learning  experience. 

At  least  in  the  case  of  the  Matrix  Program  and  VVAM 
Protocol  this  hypothesis  appears  to  be  true.  Students  were 
able  to  participate  actively  in  two  ways. 

First  the  student  had  to  interact  with  the  Matrix 
Program  which  was  primarily  concerned  with  the  visualization 
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step  of  the  VVAM  Protocol.  Over  87%  of  the  students  felt 
that  using  the  Matrix  Program  was  more  interesting  than 
listening  to  an  ordinary  lecture  (see  Figure  10),  while  over 
97%  of  those  students  with  an  opinion  felt  the  Matrix 
Program  was  more  fun  than  reading  a  text  book.  The 
assumptions  here  are  that  lectures  and  textbooks  usually  put 
the  student  into  a  passive  learning  role,  and  that  the 
active  role  has  a  positive  motivating  influence  on  the 
student.  If  making  a  learning  experience  more  interesting 
and  fun  is  a  positive  motivating  influence,  then  the  Matrix 
Program  has  certainly  succeeded. 


Using  the 

matrix  program  t 

is  a 

learning  tool  was  more 

interesting  than  listeninf 

S  to 

an  ordinary  lecture. 

RESPONSE 

FREQUENCY 

1.  S. 

Disagree 

0 

2. 

Disagree 

2 

■■ 

3. 

Undecided 

3 

■■■ 

4. 

Agree 

24 

■■■ 

5. 

S.  Agree 

11 

mmm—m 

Disagree 

-  5.0% 

Undecided 

-  7.5% 

Agree 

-  87.5% 

MEAN 

S.D. 

MEDIAN 

MINIMUM  MAXIMUM 

4 . 100 

7 .442E-01 

4.000 

2.000  5.000 

Figure  10.  Active  Use  of  the  Matrix  Program 


Second,  the  student  was  encouraged  to  interact  with  the 
teacher;  the  amount  of  student-teacher  interaction  being 
primarily  dependent  upon  the  abilities  of  the  student  and 
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eacher's  predispositions  toward 
roversion.  This  student-teacher 
essed  in  the  next  research  hypothesis. 

t  increases  student-teacher  interaction 
(such  as  the  VVAM  heuristic)  motivates  discovery 
learning. 

The  overall  student  response  showed  that  the  Matrix 
Program  and  VVAM  Protocol  were  preferred  to  typical 
classroom  lecture  and  textbook  learning  techniques  which 
generally  consist  of  one  way  information  transfer.  In  a  one 
way  transfer  of  information  the  student  may  truly  believe  he 
has  grasped  a  particular  concept  when  he  has  not.  Even  when 
a  student  asks  questions  of  the  instructor  the  new 
information  is  usually  given,  not  discovered.  The  VVAM 
protocol  ensures  that  a  great  deal,  if  not  most  of  the 
communication,  flows  from  the  student  to  the  instructor. 

The  instructor's  responsibility  becomes  one  of  learning 
guidance  while  the  student  is  encouraged  to  discover  the 
steps  and  sequence  of  a  mathematical  process.  Every  student 
who  attempted  the  VVAM  protocol  made  mistakes  at  some  point. 
Students  that  were  sure  they  understood  a  particular  matrix 
operation  often  had  to  return  to  the  visualization  step  to 
"discover"  why  their  attempt  at  verbalization  was  not 
correct.  Although  survey  questions  can  try  to  quantify  the 
benefits  of  discovery  learning,  they  cannot  capture  the 
positive  reaction  of  the  student  when  discovery  learning 
takes  place. 


the  student's  and  t 
introversion  or  ext 
interaction  is  addr 

2.  A  procedure  tha 
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Two  survey  questions  lend  credence  to  the  relationship 
between  discovery  learning  and  active  participation.  The 
first  question  shows  that  even  though  all  the  students 
surveyed  were  probably  taught  mathematics  using  typical 
teaching  techniques,  only  47%  thought  that  it  was  the 
teacher's  responsibility  to  ensure  the  student  possessed  an 
adequate  concept  base  to  learn  any  particular  subject.  This 
would  indicate  that  about  half  of  the  students  felt  they 
were  at  least  as  responsible  as  the  teacher  for  the  learning 
experience.  The  second  question  indicated  that  65%  of  the 
students  felt  that  two  way  communication  with  an  instructor 
was  essential  for  a  student  to  master  the  steps  involved  in 
performing  any  matrix  operation  (see  Figure  11). 

Two  way  communication  with  an  instructor  is  essential 
for  a  student  to  master  the  steps  involved  in 
performing  any  matrix  operation. 

RESPONSE  FREQUENCY 


1.  S.  Disagree 

2.  Disagree 

3.  Undecided 

4.  Agree 

5.  S.  Agree 

Disagree  -  20% 

Undecided  -  15% 

Agree  -  65% 

MEAN  S.D.  MEDIAN  MINIMUM  MAXIMUM 

3.750  1.171  4.000  1.000  5.000 

Figure  11.  Student-Teacher  Interaction 
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As  was  mentioned  above,  the  simple  matrix  operations 
probably  require  less  two  way  communication  than  the  more 
complex  operatxons.  Because  of  the  wording  of  t'.e  survey 
question  the  students'  preference  for  two  way  communication 
is  not  entirely  evident;  however,  the  response  does  indicate 
that  65%  of  the  students  would  prefer  two  way  communication 
even  for  the  simplest  of  matrix  operations. 

3.  The  degree  to  which  meaningful  learning  is  achieved  is 

dependent  upon  the  temperament  the  student  brings  to  the 
learning  situation. 

This  statement  may  seem  more  like  a  truism  than  an 
hypothesis;  however,  the  results  of  the  survey  show  that 
temperament  as  measured  by  the  MBTI  did  not  have  as  much 
influence  as  one  might  expect.  As  discussed  earlier,  only 
one  survey  question  indicated  any  dependence  on 
psychological  type  and  the  question  simply  reaffirmed  that 
introverted  students  prefer  to  think  privately  rather  than 
be  asked  to  verbalize.  The  conclusi  n  is  that  even  though  a 
student  might  have  an  MBTI  suggesting  some  degree  of 
introversion,  the  student  still  recognized  the  benefit  to  be 
gained  from  verbalizing  a  mathematical  process  and  was 
willing  to  do  so.  This  conclusion  is  based  on  survey 
results  showing  that  although  55%  of  the  student*  preferred 
not  to  verbalize.  Figure  12  shows  that  only  5%  believed 
verbalizing  was  not  an  excellent  way  to  display  one's 
knowledge  about  each  matrix  operation. 
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Verbalizing  the  steps  in  a  matrix 

operation 

provided 

me  with 

an  excellent 

way  to  display  my  knowledge  about  ] 

each  operation. 

RESPONSE 

FREQUENCY 

1 .  S  . 

Disagree 

0 

2  . 

Disagree 

2 

* 

■x 

Undecided 

8 

-  -  -  - 

4  . 

Agree 

28 

5  . 

S.  Agree 

2 

Disagree 

-  5% 

Undecided  -  20% 

Agree 

-  75% 

MEAN 

S  .D. 

MEDIAN 

MINIMUM 

MAXIMUM 

3.750 

6 . 304E-01 

4 

000 

2.000 

5.000 

Figure  12.  Verbalization  Question 


4.  Students  prefe  to  learn  by  reversing  the  process,  i.e., 
working  backward  from  an  example  of  the  mathematical 
process  to  arrive  at  the  mathematical  formula. 

The  Matrix  Program  and  VVAM  protocol  were  specifically 

designed  to  "reverse  the  process."  Not  every  student  was 

expected  to  be  comfortable  with  each  step  in  the  procedure 

and  it  was  expected  that  different  students  would  bring 

different  learning  preferences  to  the  experiment. 

Regardless  of  learning  preference,  82%  of  the  students  (91% 

of  those  having  an  opinion)  preferred  to  observe  the  process 

and  visualize  each  step  in  the  process  before  being  given 

the  mathematical  formula.  When  asked  if  each  step  in  the 

VVAM  protocol  facilitated  the  next  step,  80%  of  the  students 

thought  visualization  should  occur  before  attempting  to 

state  the  mathematical  process  rigorously;  72%  of  the 
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students  agreed  that  being  asked  to  verbalize  the  process 
made  it  easier  to  write  the  algorithm;  and  over  87X  felt 
that  constructing  an  algorithm  for  a  given  matrix  operation 
made  the  mathematical  modeling  of  the  process  much  easier. 
Finally,  as  shown  in  Figure  13,  80X  of  the  students  agreed 
that  the  order  of  the  four  steps  in  the  VVAM  protocol  was 
appropriate.  The  lower  percentage  of  students  caring  to 
verbalize  before  constructing  an  algorithm  may  result  from 
the  large  number  of  students  (23  of  33)  whose  MBTI  indicated 
a  higher  degree  of  introversion.  As  stated  in  the 
discussion  of  the  previous  hypothesis,  the  interesting  point 
is  not  the  lower  percentage  of  students  caring  to  verbalize, 
but  that  the  percentage  is  so  high  given  the  number  of 
students  who  lean  toward  introversion. 

The  mathematical  modeling  of  a  matrix  operation  is 
facilitated  by  constructing  an  algorithm  AFTER 
verbalizing  the  steps  involved  in  the  process  under 
observation . 

RESPONSE  FREQUENCY 

1.  S.  Disagree 

2 .  Disagree 

3.  Undecided 

4.  Agree 

5.  S.  Agree 

Disagree  -  5X 
Undecided  -  15Z 
Agree  -  80Z 

MEAN  S.D.  MEDIAN  MINIMUM  MAXIMUM 

3.800  6.076E-01  4.000  2.000  5.000 

Figure  13.  Sequence  of  Steps  in  the  VVAM  Protocol 
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These  responses  show  that  one  goal  of  the  VVAM 
protocol,  "reversing  the  process,"  was  achieved.  Whether  or 
n«t  reversing  the  process  made  any  difference  to  the  student 
is  discussed  in  the  next  section. 

Reaction  to  the  Overall  Learning  Experience .  Several 
survey  questions  were  directed  at  determining  the  students' 
reaction  to  the  learning  experience  as  a  whole.  Although 
the  questions  specific  to  the  functionality  of  the  Matrix 
Program  and  the  steps  of  the  VVAM  protocol  yielded  important 
information  about  the  learning  system,  the  general  questions 
gave  important  information  about  the  learning  experience. 

Since  a  learning  experience  is  not  worthwhile  if  the 
learning  goal  is  not  achieved,  one  question  simply  asked  if 
the  student  thought  the  goal  of  learning  about  matrix 
algebra  had  been  achieved.  Since  nearly  60S  of  the  students 
had  taken  an  undergraduate  course  in  matrix  algebra  and  over 
87X  had  learned  matrix  algebra  in  conjunction  with  some 
other  course,  one  might  have  expected  several  students  to 
find  the  use  of  the  Matrix  System  an  unnecessary  learning 
experience;  this  was  not  the  case.  As  shown  in  Figure  14, 
only  two  of  the  40  students  felt  that  the  Matrix  System  had 
not  helped  them  learn  about  matrix  algebra. 
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I  don ' 

t  think  the 

HANSARD 

MATRIX 

SYSTEM  helped  me 

learn 

much  about  matrix  algebra 

at  all . 

RESPONSE 

FREQUENCY 

1 . 

S.  Disagree 

10 

mmmm 

mmm 

2. 

Disagree 

23 

■■■■■ 

3. 

Undecided 

5 

■■■■ 

4. 

Agree 

2 

■■ 

5  . 

S.  Agree 

0 

Disagree 

-  82. 5%- 

Undecided 

-  12. 5% 

Agree 

-  5. OX 

MEAN 

S.D. 

MEDIAN 

MINIMUM  MAXIMUM 

1 . 975 

7.675E-01 

2.000 

1.000  4.000 

Figure  14.  Reaction  to  the  Overall  Learning  System 


One  of  the  students  who  did  not  benefit  from  the 
exercise  did  indeed  have  a  background  in  matrix  algebra; 
however,  answers  to  other  survey  questions  indicate  that  his 
or  her  learning  preference  may  have  been  more  responsible 
for  the  unsatisfactory  learning  experience.  Responses  to 
several  questions  show  that  the  student  strongly  preferred 
one  way  communication  from  the  teacher  to  the  student  and 
that  he/she  believed  the  teacher  to  be  solely  responsible 
for  providing  mathematical  concepts.  The  student  did  not 
want  to  visualize  matrix  operations  and  did  not  like  any 
aspect  of  the  Matrix  Program.  This  was  the  only  student  to 
state  he/she  would  not  use  a  learning  tool  similar  to  the 
Matrix  Program  again.  All  of  the  student's  learning 
preferences  appear  diametrically  opposed  to  the  learning 
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heuristic  the  Matrix  Program  and  VVAM  Protocol  were  intended 
to  motivate. 

Unlike  the  first  student,  the  second  student  had  never 
been  exposed  to  matrix  algebra;  also,  this  student  was 
highly  motivated  by  the  Matrix  Program  and  the  VVAM 
Protocol,  and  strongly  preferred  two  way  communication  with 
the  teacher.  This  student  also  indicated  that  programs  like 
the  Matrix  System  should  be  constructed  for  all  types  of 
mathematical  subjects  and  that  he  or  she  would  use  learning 
tools  similar  to  the  Matrix  Program  if  given  the 
opportunity.  Finally,  the  student  indicated  that  the  VVAM 
Protocol  helped  him/her  understand  matrix  operations  better 
than  would  have  been  the  case  under  typical  classroom 
conditions.  These  responses  indicate  that  the  student  may 
have  entered  an  unintended  response  when  answering  the 
question  about  having  learned  mv  h  about  matrix  algebra. 

With  at  least  82X  of  the  students  stating  the  Matrix 
System  helped  them  learn  about  matrix  algebra,  a  case  can  be 
made  that  the  Matrix  System  met  its  goal.  When  considering 
the  mathematical  background  of  the  students;  that  case  is 
even  stronger. 

If  the  Matrix  System  met  its  goal  then  the  VVAM 
Protocol  and  Matrix  Program  must  have  achieved  their 
separate  but  related  goals.  Survey  questions  discussed 
earlier  addressed  the  steps  of  the  Protocol  and 
functionality  of  the  Matrix  Program;  the  following  questions 
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helped  determine  the  students'  general  feeling  toward  both 
components  of  the  Matrix  System. 

One  question  asked  the  students  to  make  a  comparison  of 
the  VVAM  Protocol  with  previous  learning  experience.  As 
shown  in  Figure  15,  over  72*  thought  that  the  VVAM  heuristic 
helped  them  understand  matrix  operations  better  than  they 
could  have  under  typical  class  room  conditions. 


I  think  the  VVAM  protocol  helped  me  understand  matrix 
operations  better  than  I  could  have  understood  them 
under  typical  classroom  conditions. 


RESPONSE  FREQUENCY 


1.  S.  Disagree 

2.  Disagree 

3.  Undecided 

4.  Agree 

5.  S.  Agree 

Disagree  -  17.5* 
Undecided  -  10.0* 
Agree  -  72.5* 


MEAN 

S  .D. 

MEDIAN 

MINIMUM 

MAXIMUM 

675 

9.167E-01 

4.000 

2.000 

5.000 

Figure  15.  Reaction  to  the  VVAM  Protocol 


This  72*  is  likely  to  be  low  for  one  important  reason. 
Because  of  time  constraints,  most  students  saw  only  the 
matrix  operation  of  addition  performed.  Since  matrix 
addition  is  a  very  simple  operation,  many  of  the  students 
might  have  felt  that  a  typical  classroom  lecture  was 
adequate.  The  10  students  who  attended  the  optional 
presentation  on  the  second  day  were  introduced  to  the  more 
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complicated  steps  required  to  perform  a  matrix  inversion. 
These  students  became  absorbed  in  the  VVAM  heuristic  and  the 


"two  hour"  session  lasted  for  five  hours.  Not  many  students 
find  classroom  lectures  sufficiently  motivating  to  want  to 
attend  one  for  five  hours  -  on  a  Saturday! 

A  different  approach  was  used  determine  to  the 
students'  attitude  toward  the  Matrix  Program.  As  shown  in 
Figure  16,  over  92X  of  the  students  would  use  a  similar 
learning  tool  again. 


I  would  use  learning  t 

:ools  similar  to  the 

MATRIX 

program  if  given 

the 

opportunity . 

RESPONSE 

FREQUENCY 

1  .  S. 

Disagree 

0 

2. 

Disagree 

1 

■ 

3. 

Undecided 

2 

■■ 

4. 

Agree 

29 

5  . 

S.  Agree 

8 

Disagree 

-  2.5X 

Undecided  -  5. OX 

Agree 

-  92. 5X 

MEAN 

S.D. 

f 

1EDIAN  MINIMUM 

MAXIMUM 

4.100 

5.905E-01 

4 

000  2.000 

5.000 

Figure  16.  Reaction  to  the  Matrix  Program 


The  response  to  this  question  and  the  responses  to  questions 
concerning  the  functionality  of  the  Matrix  Program  show  the 
program  to  be  motivational  and  a  useful  learning  tool  which 
enhances  the  learning  experience  without  complicating  the 
process . 
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The  results  of  the  survey  show  that  the  Matrix  Program 
and  VVAM  Protocol  successfully  reversed  what  the  Commission 
on  Standards  for  School  Mathematics  termed  "Traditional 
teaching  emphases  on  practice  in  manipulating  expressions 
and  practicing  algorithms.  .  .  [which]  ignore  the  fact  that 
knowledge  often  emerges  from  the  problems ( 10 : 9 ). ”  The 
Matrix  System  also  encouraged  active  student  participation, 
student-teacher  interaction  and  discovery  learning,  the 
benefits  of  which  are  endorsed  by  learning  theory  and 
quantified  by  the  students'  response  to  this  study.  In  the 
final  analysis  this  researcher's  desire  to  help  his  fellow 
students  learn  concepts  from  mathematics  has  been  fulfilled. 
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V. 


This  study  began  with  a  desire  to  help  future  AFIT 
students  learn,  as  best  they  could,  mathematical  concepts 
required  in  their  course  work.  The  researcher's  preference 
for  seeing  an  example  first  and  his  background  in  computer 
programming  suggested  the  use  of  computer  generated  graphics 
to  display  the  example  or  mathematical  process.  Modern 
learning  theory  suggested  the  value  of  discovery  learning, 
active  participation,  and  student-teacher  interaction. 

Since  a  simple  computerized  tutorial  could  not  fulfill  all 
of  the  requirements,  a  procedure  was  needed  to  tie  the 
visualization  of  the  mathematical  concept  to  the  final 
mathematical  formula,  and  in  doing  60,  ensure  the  student's 
active  participation.  Professor  Dan  Reynolds  provided  that 
procedure  in  the  form  of  the  VVAM  Protocol  which  bridged  the 
gap  between  visualization  and  mathematization  by  encouraging 
the  student  to  verbalize  the  process  and  write  an  algorithm 
to  describe  the  process. 

Since  the  survey  indicated  that  the  students  responded 
favorably  to  this  new  learning  heuristic,  further  studies 
should  be  conducted  to  gain  insight  into  this  learning 
process;  because  this  experiment  was  necessarily  preliminary 
in  nature,  these  further  studies  could  take  any  of  several 
paths . 
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One  recommended  path  would  deal  mostly  with  the  sample 
population.  The  original  experiment  was  restricted  to  a 
small  sample  of  postgraduate  students.  The  Matrix  Program 
and  VVAM  protocol  could  be  left  intact  and  presented  to 
larger  and  more  varied  populations.  Undergraduates  and 
high-school  students  would  certainly  be  capable  of  employing 
the  full  heuristic,  and  a  slightly  modified  VVAM  protocol 
might  give  even  younger  students  the  opportunity  to 
participate . 

If  the  VVAM  protocol  can  be  modified  to  fit  one 
population,  then  it  could  be  modified  to  fit  others.  As  was 
noted  in  Chapter  IV,  learning  preference  plays  a  part  in  the 
learning  experience.  One  would  expect  introverted  students 
to  be  less  comfortable  with  the  verbalization  step  of  the 
Protocol.  A  student  who  is  uncomfortable  speaking  to  a 
classroom  of  30  students  may  have  no  problem  in  a  group  with 
three  or  four  classmates.  One  possibility  could  be  to 
modify  the  verbalization  step  so  that  introverted  students 
would  feel  more  at  ease.  A  modification  to  one  or  more 
steps  of  the  Protocol  could  address  one  or  more  learning 
preferences . 

In  order  to  assess  a  student's  learning  preference,  a 
screening  method,  such  as  the  MBTI,  would  be  in  • luable; 
however,  to  evaluate  the  impact  of  learning  preference  on 
students'  response  to  the  VVAM  protocol  would  require  a  set 
of  well  constructed  survey  questions.  The  original  survey 
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questions  were  more  concerned  with  the  students'  general 
perceptions  of  the  Protocol.  A  set  of  survey  questions 
could  be  constructed  specifically  to  address  learning 
preference  and  temperament  using  established  survey 
questionnaire  techniques  which  were  lacking  in  the  original 
question  set. 

A  host  of  mathematical  concepts  from  algebra  and 
calculus,  as  well  as  their  applications,  are  rarely  taught 
without  some  kind  of  visualization.  Basic  differential 
calculus  almost  always  begins  with  concepts  such  as  tangents 
to  a  curve.  Integral  Calculus  might  begin  with  the  concept 
of  limits,  but  quickly  moves  into  determining  areas  under  a 
curve  with  some  technique  such  as  the  Trapezoidal  Method. 
Given  the  appropriate  computer  visualization  and  the  VVAM 
Protocol,  students  may  be  able  to  discover  the  Fundamental 
Theorem  of  Calculus  in  the  same  way  this  study  helped 
students  to  discover  concepts  and  operations  of  matrix 
algebra. 

Given  the  success  of  the  unmodified  VVAM  protocol  and 
the  fact  that  the  Matrix  Program  was  intended  to  help 
prepare  students  for  the  AFIT  statistics  sequence,  perhaps 
the  most  logical  follow  on  to  this  study  would  be  to 
investigate  statistical  concepts  which  lend  themselves  to 
visualization.  One  such  concept  is  in  the  area  of 
hypothesis  testing.  Not  only  are  normal  distributions 
readily  visualized,  but  Type  I  and  Type  II  errors  are 
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represented  by  areas  under  the  normal  curves  which  represent 
the  null  and  alternate  hypotheses.  The  student  could  be 
allowed  to  vary  parameters  such  as  mean,  standard  deviation, 
and  confidence  interval,  and  visualize  the  effects  on  Type  I 
and  Type  II  error  by  observing  the  changing  areas  which 
represent  those  errors. 

Other  distributions  also  could  be  easily  visualized. 

The  Gamma  distribution,  for  example,  ha6  many  interesting 
characteristics  and  applications.  By  manipulating  Gamma's 
parameters,  a  and  (3,  the  student  could  discover  at  what 
point  Gamma  becomes  an  Exponential  or  Chi-square 
distribution.  Further  manipulation  could  reveal  why  the 
Gamma  distribution  can  be  used  to  approximate  a  normal 
distribution  or  vice  versa. 

Visualization  of  discrete  distributions  could  be 
carried  out  just  as  easily.  One  possibility  would  be  to 
have  the  computer  generate  discrete  data  in  the  form  of  a 
histogram  and  allow  the  student  to  manipulate  the  parameters 
of  selected  continuous  distributions  in  order  to  pick  a 
continuous  distribution  which  best  models  the  discrete  data. 
Such  a  program  would  underscore  the  relationship  between 
discrete  and  continuous  distributions. 

A  number  of  concepts  from  statistics  rely  on 
heuristics;  a  case  in  point  is  the  Central  Limit  Theorem 
( CLT ) .  Instead  of  providing  the  student  with  a  rule  of 
thumb  that  says  a  sample  size  of  25  or  30  is  sufficient  to 
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apply  the  CLT,  the  student  could  vary  sample  sizes  from 
"unknown"  computer  generated  distributions  and  see  just  how 
large  a  sample  size  is  needed  to  generate  a  sample  mean 
which  is  normally  distributed.  The  student  could  watch  the 
distribution  of  the  sample  mean  change  with  increased  sample 
size  and  discover  that  fewer  samples  are  required  if  the 
"unknown"  distribution  is  approximately  normal,  while  a 
larger  sample  size  may  be  required  if  the  underlying 
distribution  is  decidedly  non-normal. 

Most  of  the  preceding  recommendations  deal  with  fairly 
basic  concepts  from  calculus  and  statistics.  The  real 
benefit  of  the  VVAM  protocol  and  the  appropriate 
visualization  program  may  lie  in  helping  students  learn  even 
more  complex  mathematics.  Topics  from  advanced  statistics 
might  include  regression  analysis  or  the  projective  approach 
to  linear  models.  A  more  advanced  programming  language 
would  facilitate  three-dimensional  visualization  which  more 
advanced  topics,  such  as  the  projective  approach  to  the 
linear  model,  require;  however,  there  is  still  a  lot  of  work 
to  be  done  with  concepts  that  need  only  two-dimensional 
graphic s  . 

Many  programming  tools  are  available,  as  are 
programmers  capable  of  creating  the  graphics  needed  for  the 
first  step  in  the  VVAM  Protocol.  All  that  is  left  is  to  get 
to  work  and  put  some  finished  products  into  the  hands  of  the 
students  and  teachers;  they'll  take  care  of  the  rest. 
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Appendix  A.:  Technical  Information 

PROGRAMMING  LANGUAGE/ENVIRONMENT:  BASIC/QuickBASIC  4.5 

COMPUTER.*  IBM/AT  Compatible  Computer 

80286  Processor 

80287  Math  Coprocessor 
VGA  Graphics  Card 

EXECUTABLE  FILES: 

1)  MATRIX.EXE  -  Displays  introduction  screens  and  runs  the 

main  program,  MAT20.EXE. 

2)  MAT20.EXE  -  Main  Program.  May  be  run  separately  from 

MATRIX.EXE . 

3)  TQ.EXE  -  Thesis  Question  program.  Computerized  survey 

quest ionnaire. 

notes: 

***  Color  Monitor  Required  *** 

1)  QuickBASIC  code  was  written  to  use  EGA  color  graphics. 

2)  80287  Math  Coprocessor  is  not  required  for  operation. 

3)  VGA  graphics  card  is  not  required  for  operation. 

4)  EGA  graphics  card  allows  full  operation  of  MATRIX.EXE, 
MAT20.EXE,  and  TQ.EXE. 

5)  CGA  graphics  card  allows  full  operation  of  the  main 
program,  MAT20.EXE,  only. 

COMPUTER  SYSTEMS  TESTED: 


1) 

TANDY 

(Radio  Shack) 

,  MS-DOS  Compatible 

2) 

ZENITH 

-248,  'iS-DOS 

Compatible 

3) 

IBM/XT 

Compatibles 

(8086  processor) 

4) 

IBM/AT 

Compatibles 

(80286  processor) 
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Appendix  JB.:  Matrix  Program  Source  Code 


DIM  getarray( 100) 

DIM  araylt(lOO),  aray2S(100),  aray3Z(100),  aray4X(100) 

DIM  aray5X(100),  aray6l(100),  aray7X(100) 

SCREEN  9 
COLOR  15,  8 
CLS 
PRINT 

PRINT  "AN  INTERACTIVE  SYSTEM  OF  COMPUTER  GENERATED  GRAPHIC_ 
DISPLAYS” 

PRINT  "" 

PRINT  "rOR  MOTIVATING  THE  MEANINGFUL  LEARNING  OF  MATRIX_ 
OPERATIONS" 

PRINT  "" 

PRINT  "" 

PRINT  "" 

PRINT  "  THESIS" 

PRINT  "" 

LOCATE  25,  1 
COLOR  14 

PRINT  ;  "  <Hit  any  key  to  continue>"; 

COLOR  15 

VIEW  PRINT  12  TO  24 


Presented  to  the  Faculty  of  the  School  of  Logistics" 

M 

of  the  Air  Force  Institute  of  Technology" 

II 

Air  University" 

M 

In  Partial  Fulfillment  of  the" 

It 

Requirements  for  the  Degree  of 

If 

Master  of  Science  in  Systems  Management" 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
DO 

LOOP  UNTIL  INKEY$  <> 
PRINT 
PRINT 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


'Stone  W.  Hansard,  B.S.,  B.S.A.E" 

I  It 

'Captain,  USAF" 


I  II 
l  II 

l  ll 


'September  1990" 


I  ll 
l  II 

i  ll 

•  II 
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PRINT  "Approved  for  public  release;  distribution  unlimited 
DO 

LOOP  UNTIL  INKEY$  <>  "" 

VIEW  PRINT 

»  _ _ _  _ _ _  _  _  . _ _ _ _ _ _ „ _ _ _ _ _ _ _ 


'  START  INTRO  SCREEN 
» _ — _ _  _ 

COLOR  15,  0 
PI!  =  3.1416 
CLS 

clxX  =  250 
clyX  =  260 

kkX  =  1 


LINE 

(190, 

200 

)-( 

186  , 

202 

LINE 

(184, 

200 

)-( 

190, 

200 

LINE 

(190, 

200 

)-( 

186  , 

198 

LINE 

(200, 

200 

)-( 

204, 

202 

LINE 

(200, 

200 

)-( 

206, 

200 

LINE 

(200, 

200 

)-( 

204, 

198 

GET 

(184, 

198) 

-(206, 

202) 

LINE 

(184, 

198 

)-( 

206, 

202 

’  gen 

erate 

arrows 

LINE 

(100, 

100 

)-( 

112, 

112 

LINE 

(100, 

112 

)-( 

112, 

100 

LINE 

(101, 

100 

)-( 

113, 

112 

LINE 

(101, 

112 

)-( 

113, 

100 

LINE 

(99, 

100) 

-(1 

11. 

112) 

LINE 

(99, 

112) 

-(1 

11, 

100) 

GET 

(107, 

102) 

-(1 

12, 

110) 

’GET 

(100. 

102 

)-( 

105  , 

110 

GET  (99,  102)-(113,  105), 
GET  (99,  107)-(113,  110), 

LINE  (100,  100)-( 112 ,  112 
LINE  (100,  112)-(112,  100 
LINE  (101,  100)-(113,  112 
LINE  (101,  1 12 ) -( 1 13 ,  100 
LINE  (99,  100)-(111,  112) 
LINE  (99,  1 12 ) -( 1 1 1 ,  100) 

GET  (100,  102)-(105,  110) 
GET  (99,  102)-(113,  105), 
GET  (99,  107)-(113,  110), 


), 

12 

), 

12 

straight 

line 

), 

12 

), 

12 

), 

12 

straight 

line 

), 

12 

f 

aray7Z 

), 

0,  BF 

),  11 

'x  to  make  up 

),  U 

'and  down  arrows 

).  U 

'x  to  make  up 

),  U 

'and  down  arrows 

,  11 

'x  to  make  up 

,  U 

'and  down  arrows 

,  aray3Z 

'left  arrow 

)  ,  aray4Z 

'right  arrow 

aray2X 

'down  arrow 

aray IX 

'up  arrow 

),  14 

' x  to  make  up 

).  14 

'and  down  arrows 

),  14 

'x  to  make  up 

),  14 

'and  down  arrows 

.  14 

'x  to  make  up 

.  14 

'and  down  arrows 

,  aray4X 

'right  arrow 

aray 5X 

'down  arrow 

aray 6X 

'up  arrow 
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LINE  (99,  100)-( 113 ,  112),  0,  BF  ’erase  x 


PRESET  (clx*  -  195,  clyZ  -  15) 


locate  graphic  pixel 


CIRCLE 

CIRCLE 

CIRCLE 

CIRCLE 

CIRCLE 

CIRCLE 

CIRCLE 

CIRCLE 

CIRCLE 

CIRCLE 

CIRCLE 

CIRCLE 


STEP ( 30 , 
STEP ( 25 , 
STEP( 30 , 
STEP ( 30 , 
STEP ( 39  , 
STEP ( 39 , 
STEP ( 20 , 
STEP ( -9 , 
STEP ( -43 
STEP (-41 
STEP ( -33 
STEP ( -53 


0),  20,  14 

f  9 

3  * 

ph  , 

PI ! 

-10), 

15, 

14, 

.3 

*  PI! 

,  .91  *  PI! 

-10), 

20, 

14, 

.2 

*  PI! 

,  PI! 

-io) , 

20, 

14, 

1.9 

*  PI 

!,  .95 

* 

PI  ! 

8),  20,  14 

,  1 

.9  * 

PI!  , 

.9  *  PI! 

8),  20,  14 

,  1 

.9  * 

PI!  , 

.9  *  PI! 

18)  , 

20,  14, 

3  * 

PI !  / 

2,  PI! 

!  / 

2 

22), 

20,  14, 

3  * 

PI  !  / 

2,  PI! 

!  / 

6 

-30) 

.  76, 

14 

,  2 

*  PI! 

/  1.4! 

L, 

3.4 

30)  , 

40, 

14, 

2  * 

PI  ! 

/  1.5, 

3. 

4  * 

-30) 

,  76, 

14 

,  2. 

4  *  PI!  /  1. 

•  9, 

3. 

20)  , 

31, 

14, 

PI  ! 

/  1. 

5,  3.1 

* 

PI  ! 

*  PI.  /  2 
PI  !  /  2 
1  *  P I  !  /  2 
/  2 


COLOR  11 
LOCATE  1,  18 

PRINT  "MEANINGFUL  LEARNING" 
LOCATE  3,  18 

PRINT  "  requires  dialog. 


LOCATE  4, 

18 

PRINT  " 

exchange , " 

LOCATE  5, 

18 

PRINT  " 

sharing,  " 

LOCATE  6, 

18 

PRINT  " 
COLOR  14 

and  sometimes  compromise." 

LOCATE  8, 

14 

PRINT  "The  AUTHORS  of  this  software  are  happy  to  have  the" 
LOCATE  9,  14 

PRINT  "opportunity  to  LEARN  about  MATRIX  ALGEBRA  with  you. 
COLOR  15 
LOCATE  15,  9 
PRINT  "STUDENT" 

LOCATE  15,  65 
PRINT  "EDUCATOR" 


CIRCLE  (90,  180),  20,  15 
CIRCLE  (83,  176),  3,  7 
CIRCLE  (97,  176),  3,  7 
LINE  (82,  185 )-( 98  ,  185), 

CIRCLE  (544,  180),  20,  15 
CIRCLE  (537,  176),  3,  7 
CIRCLE  (551,  176),  3,  7 
LINE  (536,  185)-(552,  185) 


'  STUDENT 

'  STUDENT  LEFT  EYE 
'  STUDENT  RIGHT  EYE 
15  'STRAIGHT  FACE 

'  EDUCATOR 
'  STUDENT  LEFT  EYE 
’  STUDENT  RIGHT  EYE 
,  15  'STRAIGHT  FACE 


'draw,  paint  and  get  green  circle 
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CIRCLE  (clxX,  clyX),  5,  10 
PAINT  (clxX,  clyX),  10,  10 

GET  (clxX  -  5,  clyX  -  5)-(clxX  +  5,  clyX  +  5),  getarray 

horlX  =  POINT(O) 
verlX  =  POINT ( 1 ) 

PUT  (415,  255),  getarray 

hor2X  =  POINT ( 0 ) 
ver 2X  =  POINT(l) 


draw  boxes  and  big  circles 


lxlX 

105 

'LIMIT 

ly  IX 

= 

230 

'LIMIT 

1  x2X 

= 

260 

'LIMIT 

ly2X 

290 

' LIMIT 

rx  IX 

= 

380 

'  LIMIT 

ry  IX 

= 

220 

'LIMIT 

r  x2X 

r 

570 

'LIMIT 

r  y2X 

j _ i  • 

300 

/  OA 

' LIMIT 

trxlX  =  480 
trylX  =  222 


tlxlX  =  190 

tlylX  =  220 

COLOR  11 

LINE  ( tlxlX ,  tlylX)-(tlxlX,  tlylX  -  48)  'top  left_ 

connect  line 

LINE  (trxlX,  trylX)-( trxlX ,  trylX  -  50)  'top  right_ 

connect  line 

LINE  (tlxlX,  tlylX  -  48)-(trxlX,  trylX  -  50)  'top 
horizontal  connect  line 

COLOR  14 

LINE  (tlxlX,  tlylX  +  80)-(tlxlX,  tlylX  +  120)  'bot  left 
connect  line 

LINE  (trxlX,  trylX  +  80)-(trxlX,  trylX  +  118)  'bot  right 
connect  line 

LINE  (tlxlX,  tlylX  +  120)-(trxlX,  trylX  +  118)'bot_ 
horizontal  connect  line 

COLOR  15 

LINE  (rxlX,  rylX)-(rx2X,  ry2X),  11,  B  'right  cyan  box 

LRCXX  =  140 
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LRCYX  =  260 
RRCXX  =  520 


CIRCLE  ( LRCXX ,  LRCYX ) ,  20,  12 
CIRCLE  (RRCXX,  LRCYX),  20,  12 

'left  red  circle 
'right  red  circle 

'draw  beginning  elastic  lines 

LINE  (tlxlX,  trylX)-(horlX  -  5, 
upper  left  line 

verlX  -  5),  15 

' draw_ 

LINE  (tlxlX,  trylX  +  75)-(horlX 
lower  left  line 

-  5 ,  verlX  -  5 ) ,  15 

'  draw_ 

LINE  (trxlX,  trylX)-(hor2X  +  5, 
upper  right  line 

LINE  (trxlX,  trylX  +  75)-(hor2X 

ver2X  +  5),  15 

+  5,  ver2X  +  5),  15 

'  draw_ 

’  draw_ 

lower  right  line 
DO 

LOOP  UNTIL  INKEY$  <> 


'erase  beginning  elastic  lines 


LINE  (tlxlX,  trylX)-(horlX  -  5, 

verlX  -  5),  0 

'erase 

upper  left  line 

LINE  (tlxlX,  trylX  +  75)~(horlX 

-  5,  verlX  -  5),  0 

'erase 

lower  left  line 

LINE  (trxlX,  trylX )-( hor2X  +  5, 

ver2X  +  5 ) ,  0 

'erase 

upper  right  line 

LINE  (trxlX,  trylX  +  75)-(hor2X 

+  5 ,  ver2X  +  5 ) ,  0 

' erase 

lower  right  line 


'erase  first  and  second  dots 


PUT  (horlX 

-  10,  verlX  -  10), 

getarray,  X0R 

PUT  ( hor2X 

,  ver2X),  getarray. 

X0R 

LOCATE  19, 
PRINT  "  " 

31 

'  erase 

residue 

LOCATE  19, 
PRINT  "  " 

53 

'erase 

residue 

speedX  =  30000 

Begin  loop 

*  _  _ _ _ _ _ _ 

INCX  =  1 
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FOR  iX 


1  TO  150 


GOSUB  arrows 
IF  it  =  1  THEN 

PRESET  (clxX,  clyX)  '  locate  graphic 

pixel 
ELSE 

PRESET  (horlX,  verlX)  '  locate  graphic 

pixel 

PUT  (horlX,  verlX),  getarray,  XOR  ’erase  dot 

LINE  (tlxlX,  trylX)-(horlX ,  verlX),  0  'erase 

upper_  left  line 

LINE  (tlxlX,  trylX  +  75)-(horlXf  verlX),  0  'erase 

lower_  left  line 

CIRCLE  (RRCXX,  LRCYX) ,  20,  12  'left  red  circle 

PUT  (hor2X,  ver2X) ,  getarray,  XOR  'erase  dot 

LINE  (trxlX,  trylX)-(hor2X ,  ver2X),  0  'erase 

upper_  left  line 

LINE  (trxlX,  trylX  +  75)-(hor2X,  ver2X),  0  'erase 

lower_  left  line 

CIRCLE  (LRCXX,  LRCYX),  20,  12  'right  red  circle 

INCX  =  INCX  +  1 
IF  INCX  =  5  THEN 

CIRCLE  (LRCXX,  LRCYX),  20,  0  'erase  left  red  circle 

CIRCLE  (RRCXX,  LRCYX),  20,  0  'erase  right  red 

circle 

LRCXX  =  LRCXX  +  1 
RRCXX  -  RRCXX  -  1 
CIRCLl.  (LRCXX,  LRCYX),  20,  12 

'left  red  circle 

CIRCLE  (RRCXX,  LRCYX),  20,  12 

'right  red  circle 
INCX  =  1 
END  IF 

PRESET  (horlX,  verlX)  '  locate  graphic 

pixel 

END  IF 

RANDOMIZE  TIMER 
picklX  =  INT (18  *  RND)  -  9 
updnlX  =  SGN(picklX)  *  5 
IF  verlX  <=  lylX  +  25  THEN  updnlX  =  5 
IF  verlX  >=  ly2X  -  30  THEN  updnlX  =  -5 
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RANDOMIZE  TIMER 
picklX  =  INT( 18  *  RND )  -  10 
lfrtlX  =  SGN(picklX)  *  5 
IF  horlX  <=  IxlX  +  10  THEN  lfrtlX  =  5 
IF  horlX  >=  1  x2X  -  0  THEN  lfrtlX  =  -5 

PUT  STEP(lfrtlX,  updnlX),  getarray  'print  dot 

horlX  =  POINT(O) 
verlX  =  POINT ( 1 ) 

I  I  I  I  I  I  I  I  II  t  I  I  I  I  I  II  I  I  •  t  t  I  II 

'locate  top  of  left  line 

•  tfltlttttlttftlltlfllfltt 

LINE  (tlxlX,  trylX)-(hor IX ,  verlX),  15  'draw  upper  left  line 
LINE  (tlxlX,  trylX  +  75)-(horlX,  verlX),  15  'draw  lower 
left  line 


6miley  face  section 


'  both  dots  outside 


IF  horlX  <  AX  OR  horlX  >  BX  OR  verlX  <  CX  OR  verlX  >  DX  THEN 
IF  ho r 2X  <  EX  OR  hor2X  >  FX  OR  ver2X  <  CX  OR  ver2X  >  DX  THEN 


LINE  (78,  168)-(102,  189), 
LINE  (532,  168)-( 556  ,  189) 

CIRCLE  (90,  180),  20,  15' 
CIRCLE  (83,  176),  3,  7 
CIRCLE  (97,  176),  3,  7 
LINE  (82,  185)-(98,  185), 

CIRCLE  (544,  180),  20,  15 
CIRCLE  (537,  176),  3,  7 
CIRCLE  (551,  176),  3,  7 
LINE  (536,  185)— (552,  185) 


0,  BF  'erase  mouth 

,  0,  BF  'erase  mouth 

STUDENT 

’  STUDENT  LEFT  EYE 
'  STUDENT  RIGHT  EYE 
15  'STRAIGHT  FACE 

'  EDUCATOR 
’  STUDENT  LEFT  EYE 
'  STUDENT  RIGHT  EYE 
,  15  'STRAIGHT  FACE 


'LINE  (82,  185 ) -( 98 ,  185),  15  'STRAIGHT  FACE 
’LINE  (536,  185 )-( 552 ,  185),  15  ’STRAIGHT  FACE 


END  IF 
END  IF 


both  dots  inside 


LRCXX  =  140 
LRCYX  =  260 
RRCXX  =  520 
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AX  =  LRCXX  -  20 
BX  =  LRCXX  +  20 
CX  =  LRCYX  -  20 
DX  =  LRCYX  +  20 
EX  =  RRCXX  -  30 
FX  =  RRCXX  +  20 

IF  horlX  >  A%  AND  horlX  <  BX  AND  verlX  >  CX  AND  verlX  <  DX. 
THEN 

IF  hor 2X  >  EX  AND  hor2X  <  FX  AND  ver2X  >  CX  AND  ver2X  <  DX. 
THEN 
100 

LINE  (78,  168)-(102,  189),  0,  BF  ’erase  mouth 

LINE  (532,  168)-(556,  189),  0,  BF  ’erase  mouth 


CIRCLE 

(90, 

180), 

20 

,  10 

'  STUDENT 

CIRCLE 

(83, 

176)  , 

4, 

10, 

0, 

PI  ! 

’  STUDENT 

LEFT 

EYE 

CIRCLE 

(97, 

176)  , 

4, 

10, 

0, 

PI ! 

'  STUDENT 

RIGHT 

EYE 

CIRCLE 

(83, 

176)  , 

1. 

10 

'  STUDENT 

LEFT 

EYE 

CIRCLE 

(97, 

176), 

1, 

10 

'  STUDENT 

RIGHT 

EYE 

CIRCLE 

(544,  180) 

,  20 

,  10 

'  EDUCATOR 

CIRCLE 

(537,  176) 

,  3, 

10, 

0, 

PI  ! 

’  STUDENT 

LEFT 

EYE 

CIRCLE 

(551,  176) 

,  3, 

10, 

0, 

PI  ! 

'  STUDENT 

RIGHT 

EYE 

CIRCLE 

(537,  176) 

,  4, 

10, 

0, 

PI  ! 

’  STUDENT 

LEFT 

EYE 

CIRCLE 

(551,  176) 

,  4, 

10, 

0, 

PI! 

'  STUDENT 

RIGHT 

EYE 

CIRCLE 

(90,  183), 

8. 

10, 

PI ! 

,  0 

'SMILE 

CIRCLE 

(90,  183), 

9, 

10, 

PI ! 

,  0 

'SMILE 

CIRCLE 

(544,  183) 

,  8, 

10, 

PI 

!  ,  0 

'SMILE 

CIRCLE 

(544,  183) 

.  9, 

10, 

PI 

!.  0 

'SMILE 

PUT  (horlX,  verlX),  getarray,  X0R  'erase  dot 

LINE  (tlxlX,  trylX )-( horlX ,  verlX),  0  'erase  upper  left 
line 

LINE  (tlxlX,  trylX  +  75)-(horlX,  verlX),  0  'erase  lower 
left_  line 

CIRCLE  (RRCXX,  LRCYX),  20,  12  ’left  red  circle 

PUT  (LRCXX  -  5,  LRCYX  -  5),  getarray,  X0R  'draw  left  green_ 
dot 

PUT  (RRCXX  -  5,  LRCYX  -  5),  getarray,  XOR  'draw  right  green 
dot 

GOTO  777 
END  IF 
END  IF 

IF  hor 2X  >  EX  AND  hor2X  <  FX  AND  ver2X  >  CX  AND  ver2X  <  DX_ 
THEN 

LINE  (78,  168 )-( 102 ,  189),  0,  BF  'erase  mouth 

LINE  (532,  168)-(556,  189),  0,  BF  'erase  mouth 
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CIRCLE  (90,  180),  20,  4 
PUT  (79,  174),  aray7X 


’  STUDENT 
'squint 


CIRCLE  (544,  180),  20,  4  ’  EDUCATOR 

PUT  (533,  174),  aray7X  'squint 

CIRCLE  (90,  189),  8,  12,  0,  PI!  /  1  'FROWN 
CIRCLE  (544,  189),  8,  12,  0,  PI!  /  1  'FROWN 
END  IF 

IF  horlX  >  AX  AND  horlX  <  BX  AND  verlX  >  CX  AND  verlX  <  DX_ 
THEN 

LINE  (78,  168)-( 102 ,  189),  0,  BF  'erase  mouth 

LINE  (532,  168)-( 556 ,  189),  0,  BF  'erase  mouth 

CIRCLE  (90,  180),  20,  4  '  STUDENT 

CIRCLE  (83,  176),  3,  0  '  STUDENT  LEFT  EYE 

CIRCLE  (97,  176),  3,  0  '  STUDENT  RIGHT  EYE 

PUT  (79,  174),  aray7X  'squint 

CIRCLE  (544,  180),  20,  4  '  EDUCATOR 

PUT  (533,  174),  aray7X  'squint 

CIRCLE  (90,  189),  8,  12,  0,  PI!  /  1  'FROWN 
CIRCLE  (544,  189),  8,  12,  0,  PI!  /  1  'FROWN 
END  IF 


«  t  I  I  I  f  I  t  t  t  f  t  I  «  f  I  I  f  I  I  f  t  f  •  I  I  «  I  t  »  f  f  «  »  I  »  I  I  f  1  I  t  f  I  T  V  f  I  t  f  I  I  «  t  t  I  t  t 

IF  iX  =  1  THEN 

PRESET  (415,  245)  '  locate  graphic 

pixel 
ELSE 

PRESET  (hor2X,  ver2X)  '  locate  graphic 

pixel 
END  IF 


RANDOMIZE  TIMER 

pi ck2X  =  INT( 18  *  RND )  -  9 

updn2X  =  SGN ( pi ck2X )  *  5 

'restrict  dot 

IF  ver2X  <=  rylX  +  25  THEN  updn2X  =  5 
IF  ver2X  >=  ry2X  -  25  THEN  updn2X  =  -5 

RANDOMIZE  TIMER 

pi ck2X  =  INT (18  *  RND)  -  7 

1 f r t2X  =  SGN(pick2X)  *  5 


-  68  - 


'restrict  dot 

IF  hor  2X  <=  rxlX  +  20  THEN  lfrt2Z  =  5 
IF  hor2Z  >=  rx2Z  -  20  THEN  lfrt2X  =  - 

PUT  STEP ( If rt2Z ,  updn2Z) ,  getarray 

hor  2X  =  POINT ( 0 ) 
ver2X  =  POINT(l) 


lltltttttftttltftflttflttt 

'locate  top  of  right  line 


LINE  (trxlX,  trylX)-(hor2X ,  ver2Z),  15 
line 

LINE  (trxlX,  trylX  +  75)-(hor2Z,  ver2X), 
right_  line 

FOR  IX  =  1  TO  speedX 
NEXT  IX 

GOSUB  arrows 

kkX  =  kkX  +  1 

IF  kkX  =  4  THEN  kkX  =  1 

NEXT  iX  ' ! ! ! * ! ! !  END  OF  BIG  LOOP 

PUT  (hor2Z,  ver2X),  getarray,  XOR 
LINE  (trxlX,  trylX)-(hor2X ,  ver2X),  0 
line 

LINE  (trxlX,  trylX  +  75)-(hor2X,  ver2X) 
left_  line 

GOTO  100 

777 


'successful  completion 


COLOR  15 

LINE  ( tlxlX , 
line 

LINE  (tlxlX, 
left_  line 

LINE  (trxlX, 
line 

LINE  (trxlX, 
right_  line 


trylX)-( LRCXX ,  LRCYX )  ,  15 
trylX  +  7  5 ) - ( LRCXX ,  LRCYX), 

trylX) -(RRCXX,  LRCYX),  15 
trylX  +  7  5 ) - ( RRCXX ,  LRCYX), 


'was  +10 
'was  -10 

'print  dot 


'draw  upper  right_ 
1 5 ' draw  lower 


!!!!!!!!!!! 

'erase  dot 
'erase  upper  left 

0  'erase  lower 


'draw  upper  left 
15  'draw  lower 

'draw  upper  right 
1 5 ' draw  lower 
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555 


LOCATE  11,  31 

PRINT  "Hit  any  key  to  CONTINUE 
DO 

LOOP  UNTIL  INKEY$  <>  " " 

CLS 

RUN  "MAT20.EXE" 

666 

END 

I  ___________  _  _ _  _ _  _  _ 


arrows  : 


loX 

=  220 

i  nX 

=  40 

IF  1 

kkX  = 

1  THEN 

PUT 

(473, 

trylX  -  8),  araylX 

'  top 

PUT 

(183, 

trylX  -  8),  aray2X 

'  top 

PUT 

(183. 

trylX  ♦  80),  aray5X 

’ bottom 

PUT 

(473, 

trylX  +  80),  aray6X 

'bottom 

PUT 

(  loX 

+ 

6 

* 

i  nX , 

tlylX 

- 

52 ) ,  aray3X 

PUT 

(loX 

+ 

3 

* 

inX  , 

tlylX 

- 

52  )  ,  aray 3X 

PUT 

(loX 

+ 

0 

* 

inX , 

tlylX 

- 

52 )  ,  aray3X 

PUT 

(loX 

+ 

6 

* 

inX  , 

tlylX 

+ 

116),  aray4X 

PUT 

(  loX 

♦ 

3 

* 

i  nX  , 

tlylX 

+ 

116),  aray4X 

PUT 

(loX 

+ 

0 

* 

i  nX , 

tlylX 

+ 

116),  aray4X 

COLOR  11 
GOSUB  colors 

ELSEIF  kkX  =  2  THEN 

PUT  (183,  trylX  +  100),  aray5X 

PUT  (loX  +  6.3  *  inX,  tlylX  +  116),  aray4X 

PUT  (473,  trylX  -  28),  araylX 

PUT  (183,  trylX  -  48),  aray2X 

PUT  (loX  +  5  *  int ,  tlylX  -  52),  aray3X 

PUT  (lot  ♦  2  *  inX ,  tlylX  -  52),  aray3X 

PUT  (  loX  +  1  *  inX,  tlylX  +  116),  aray4X 

PUT  (loX  ♦  4  *  i nt ,  tlylX  +  116),  aray4X 

COLOR  10 

GOSUB  colors 

ELSEIF  kkX  =  3  THEN 

PUT  (473,  trylX  ♦  110),  aray6X 
PUT  (190,  tlylX  +  116),  aray4X 
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PUT  (473,  trylZ  -  48),  araylZ 

PUT  (183,  trylZ  -  28),  aray2Z 

PUT  (loZ  +  1  *  inZ,  tlylZ  -  52),  aray3Z 

PUT  (loZ  +  4  *  inZ,  tlylZ  -  52),  aray3Z 

PUT  (loZ  +  2  *  inZ,  tlylZ  +  116),  aray4Z 

PUT  (loZ  +  5  *  inZ,  tlylZ  +  116),  aray4Z 

COLOR  14 

GOSUB  colors 

END  IF 

RETURN 

END 

f 


colors  : 


LOCATE  1,  18 

PRINT  "MEANINGFUL  LEARNING” 

LOCATE  3,  18 

PRINT  "  requires  dialog," 

LOCATE  4,  18 

PRINT  "  exchange," 

LOCATE  5,  18 

PRINT  "  sharing,  " 

LOCATE  6,  18 

PRINT  "  and  sometimes  compromise. 

LOCATE  8,  14 
PRINT  " 

tt 

LOCATE  9,  14 
PRINT  " 

»l 

RETURN 

END 


MAIN  PROGRAM 


DECLARE  SUB  BLINK2  (AZ(),  E!(),  MCZ ,  RCZ,  ROWAZ,  COLBZ,_ 
ACBRZ) 

DECLARE  SUB  clr2  (R1Z,  C1Z,  R2Z,  C2Z ) 

DECLARE  SUB  BLINK  (AZ(),  BZ(),  MCZ,  RCZ,  ROWAZ,  COLBZ, 

ACBRZ) 

DECLARE  SUB  determ2  (iZ,  jZ,  AZ(),  name$,  solZ) 

DECLARE  SUB  iandj  (iZ,  jZ,  hfcZ,  hbcZ,  ijrZ,  ijcZ,  ijfcZ,_ 
i jbcZ) 

DECLARE  SUB  clrl  (R1Z,  C1Z,  R2Z,  C2Z ) 

DECLARE  SUB  minor  (iZ,  jZ,  AZ(),  name$,  solZ,  tsolZ) 

DECLARE  SUB  box  (TLRZ ,  TLCZ ,  WIDEZ,  LLZ,  FGCZ,  BGCZ ,  bx$,_ 
sfcZ,  styleZ,  syn$) 

DIM  AZ(1  TO  3,  1  TO  3),  BZ(1  TO  3,  1  TO  3),  CZ(1  TO  3,  1  TO_ 
3) 

DIM  DZ ( 1  TO  3,  1  TO  3),  E ! ( 1  TO  3,  1  TO  3) 
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DIM  i tem$ ( 20 ) 

COMMON  SHARED  item$(),  TLCBX ,  TLCRX,  TLRBX,  TLRRX,  TLRAX , 
TLCAX,  BC1X ,  BR1X 
COMMON  AX,  BX 

COMMON  SHARED  ROWAX,  COLBX,  ACBRX 
'CALL  intro 

CLEAR  ,  ,  1000  'Increase  stack 

size 

SCREEN  0 


tlrX  -  Position  of  Top  Left  Row 
tlcX  -  Position  of  Top  Left  Column 
wideX  -  Width  of  longest  line  in  list 
11  X  -  number  of  items  in  list 
fgcX  -  Foreground  color 
bgcX  -  Background  color 

bx$  -  "n"  display  list/"y"  don't  display  list 
sfcX  -  shadow  foreground  color 

styleX  -  1  for  2  lines/2  for  matrix/3  for  determinent 
syn$  "y"  use  a  shadow  -  "n"  no  shadow 
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COLOR  15,  7 

CLS 

» 


i t  em$ ( 1 )  =  "MATRIX  OPERATIONS 
CALL  box ( 1 ,  20,  34,  1,  15,  1,  "n",  0,  1,  "y") 


i t  em$ ( 1 )  =  "" 
i tem$ (  2  )  =  "  1.  ADDITION 
TRANS POS IT ION_  " 
i t em$ ( 3 )  =  "  2.  SUBTRACTION 
MULTIPLICATION  (DOT  PRODUCT)" 
item$ (4 )  =  "  3.  SCALAR  MULTIPLICATION 
item$( 5)  =  "  4,  SCALAR  DIVISION 
CALL  box ( 6 ,  7,  63,  5,  15,  2,  "n”,  0,  1, 
LOCATE  7,  38 
PRINT  "M  E  N  U" 

LOCATE  8,  8 
PRINT 


w 


INVERSION 

Quit" 


II 


i tem$ ( 1 )  =  "ENTER  THE  NUMBER  OF  YOUR  SELECTION 
CALL  box ( 2 1 ,  20,  34,  1,  15,  4,  "n",  0,  1,  "y") 
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SEL1$  =  INKEY$ 
LOOP  UNTIL  SEL 1$ 
IF  SEL1$  =  "6" 
IF  SEL1$  =  "1" 
IF  SEL 1 $  =  "2" 
IF  SEL 1$  =  "5" 
IF  SEL 1$  =  "7" 
IF  SEL1$  =  "3" 
IF  SEL1$  =  "4" 
IF  SEL1$  =  "Q" 


THEN  GOSUB 
THEN  GOSUB 
THEN  GOSUB 
THEN  GOSUB 
THEN  GOSUB 
THEN  GOSUB 
THEN  GOSUB 
OR  SEL 1$  = 


666 

GOTO  2 


MULTIPLY 

ADD 

ADD 

TRANSPOSE 

INVERT 

scalar 

scalar 

"q"  OR  SEL1$ 


"8"  THEN  GOTO 


GOSUBS  BEGIN  HERE 


scalar:  'scalar  multiplication  and  division 


202 

cbX  =  7  '  COLOR  OF  BACKGROUND 

COLOR  15,  cbX 

CLS 

IF  SEL 1$  =  "3"  THEN 

I _ _ _ _ _ _ _ _ _ _  _ _ _ _ —  _  _  _  _ 

item$(l)  =  "SCALAR  MULTIPLICATION 
CALL  box (  1 ,  20,  41,  1,  15,  4,  "n",  0,  1,  "y") 


ELSE 

—  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  — 

i t  em$ ( 1 )  =  "  SCALAR  DIVISION 

CALL  b o x (  1 ,  20,  39,  1,  15,  4,  "n",  0,  1,  "y") 


END  IF 
404 


item$(l)  =  "MATRICIES  may  have  a  maximum  of  3  ROWS  and  3 
COLUMNS" 

i tem$ ( 2 )  =  "  ENTER  THE  DIMENSIONS  OF  THE  MATRIX" 
item$(3)  = 
i t  em$ ( 4 )  =  " 

CALL  box ( 7 ,  14,  52,  4,  15,  2,  "n",  0,  1,  "y") 


LOCATE  12,  24 

INPUT  "How  many  ROWS  in  the  Matrix:  ",  ROWAX 
LOCATE  13,  24 

INPUT  "How  many  COLUMNS  in  the  Matrix:  ",  COLAX 

IF  ROWAX  <  1  OR  COLAX  <  1  GOTO  404  ’  limit  matricies 

IF  ROWAX  >  3  OR  COLAX  >  3  GOTO  404  ’  to  3  x  3 

LOCATE  7,1  . . . 
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clear 


COLOR  15,  cbS 
FOR  iX  =  1  TO  14 
PRINT  S PC ( 60  )  : 
NEXT  iX 


ENTER  BOX 


LOCATION  OF  MATRIX  BOXES 


TLRAX  =  10 

'Top 

Left 

Row  A  MATRIX 

TLCAX  =  16 

'Top 

Left 

Column  A  MATRIX 

TLCBX  =  30 

'Top 

Left 

Column  B  MATRIX 

TLRBX  =  10 

'Top 

Left 

row  B  MATRIX 

TLCRX  =  45 

'Top 

Left 

Column  R  MATRIX 

TLRRX  =  10 

'Top 

Left 

Row  R  MATRIX 

IF  COLAS  =  1  THEN 
TLCAX  =  TLCAX  +  13 
TLCBX  =  TLCBX  +  7 
TLCRX  =  TLCRX  +  2 
NLENX  =  1 

ELSEIF  COLAS  =  2  THEN 
TLCAS  =  TLCAS  +  6 
TLCBS  =  TLCBS  +  1 
TLCRX  =  TLCRX  +  1 
NLENX  =  '/ 

ELSEIF  COLAS  =  3  THEN 
TLCBS  =  TLCBS  +  1 
TLCRX  =  TLCRX  +  2 
NLENX  =  13 
END  IF 

CALL  box ( TLRAX ,  TLCAX,  NLENX,  ROWAX ,  15,  1,  "y",  0,  2,"y")_ 
'matrix  A 
NLENX  =  NLENX  -  2 
IF  SEL 1$  =  "3"  THEN 

CALL  box ( TLRRX ,  TLCRX,  NLENX  +  1,  ROWAX,  15,  2,  "y" ,  0,  2 ,_ 
"y") ’matrix  R 
ELSE 

CALL  box ( TLRRX ,  TLCRX,  NLENX  +  2,  ROWAX,  15,  2,  "y",  0,  2 ,_ 
y  )  matrix  R 
END  IF 

CALL  box(22,  13,  50,  1,  15,  0,  "y",  cbX,  1,  "y") 'equation 
box 

COLOR  11,  0 
LOCATE  23,  21 

PRINT  "Hit  the  (Space  Bar>  to  watch  the  process" 

COLOR  14,  0 
LOCATE  23,  29 
PRINT  "(Space  Bar>” 


'one  column  of  A 


'two  columns  of  A 


'three  columns  of  A 
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’  LOCATE  OPERATORS 
» 


COLOR  15,  cbt 
IF  SEL1$  =  "3"  THEN 

LOCATE  TLRAt  +  ROWAt,  TLCAt  +  (NLENt  +  8):  PRINT  "x" 
ELSE 

LOCATE  TLRAt  +  ROWAt,  TLCAt  +  (NLENt  +  8):  PRINT  "  +  " 
END  IF 

LOCATE  TLRAt  +  ROWAt ,  TLCAt  +  (NLENt  +14):  PRINT  "= 


FOR  it  =  1  TO  3 
FOR  jt  =  1  TO  3 
RANDOMIZE  TIMER 
A 

pickt  =  INT( 18  *  RND)  -  9 
At(it,  jt)  =  pickt 
NEXT  jt 
NEXT  it 

23 

RANDOMIZE  TIMER  '  pick  random  numbers  for  scalar 

Drt  =  INT(18  *  RND)  -  9  '  between  -9  and  9  but  not  0 

IF  Drt  =  0  GOTO  23 

'  LABEL  EACH  MATRIX  AND  OPERATION  (X/+) 

COLOR  7,  0  'COLOR  OF  LABEL 

LOCATE  TLRAt  +  (ROWAt  *  2)  +  1,  TLCAt  +  (.5  *  NLENt  +  2) 
PRINT  "A" 

IF  SEL 1$  =  "3"  THEN 

LOCATE  TLRRt  +  (ROWAt  *  2)  +  1,  TLCRt  +  (.5  *  NLENt)  +  1 

PRINT  "A  x  Drt 

ELSE 

LOCATE  TLRRt  +  (ROWAt  *  2)  +  1,  TLCRt  +  (.5  *  NLENt)  +  1 
PRINT  "A  r  Drt 

END  IF 


BClt  =  6 
BRlt  =  2 


'+++++++++++++++++++++++++++++++++++++++++++++++++ 


'  COLUMN  SEPARATION 
'  ROW  SEPARATION 


pick  random  numbers  for  array 
between  -9  and  9 


FOR  it  =  1  TO  ROWAt 

ARt  =  BRlt  *  it  +  TLRAt  -  1 

FOR  jt  =  1  TO  COLAt 

ACt  =  BClt  *  jt  +  TLCAt  -  4 

BRt  =  BRlt  *  jt  +  TLRBt  -  1 

COLOR  15,  1 


FOR  ARRAY 


MATRIX  A  COLOR 
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LOCATE  ARt,  ACt  ’  PRINT 
PRINT  At  ( it ,  jt)  ’  ARRAY 
'++++++++++++++++++++++ 

NEXT  jt  ’  LOOP 
NEXT  it 


tittllftttfitltltftlt 

locate  the  scalar 


set  =  0  'scalar  color 

COLOR  set,  cbt 

LOCATE  TLRAt  +  ROWAt,  TLCAt  +  ( NLENt  +  10):  PRINT  Drt 
COLOR  15,  1 

DO 

LOOP  UNTIL  INKEY$  <>  "" 

COLOR  30,  cbt 

LOCATE  TLRAt  +  ROWAt,  TLCAt  +  (NLENt  +  10):  PRINT  Drt 
COLOR  15,  1 

BLNKCt  =  14  '  BLINK  COLOR 

FOR  it  =  1  TO  ROWAt 

ARt  =  BRlt  *  it  +  TLRAt  -  1 

FOR  jt  =  1  TO  COLAt 

ACt  =  BClt  *  jt  +  TLCAt  -  4 

BRt  =  ARt 

BCt  =  BClt  *  jt  +  TLCBt  -  4 


COLOR  30 


LOCATE  ARt,  ACt 
PRINT  At ( it ,  jt) 


BLINK 

A  ARRAY  ELEMENTS 


COLOR  15,  1 

RCt  =  BClt  *  jt  +  TLCRt  -  4 

LOCATE  BRt,  RCt  '  PRINT 

PRINT  '  RESULT  BOX 

IF  SEL1$  =  "3"  THEN 
St  =  A t ( it,  jt)  *  Drt 
ELSE 

S!  =  At (it,  jt)  /  Drt 
END  IF 


COLOR  11,  0  ’  clear  equation  box  at  bottom 

LOCATE  23,  40  '  of  screen 
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PRINT  SPC(24) 


COLOR  15,  0 
LOCATE  23,  45 

»  »  »  I  I  I  I  I  »  I  * 


IF  SEL1$  =  "3"  THEN 
PRINT  USING  "(## 
ELSE 

PRINT  USING  "(## 
END  IF 
DO 

LOOP  WHILE  INKEY$  = 


x  ##)  =  At(it 

*  #*)  =  H";  At  ( it 


jt); 

Dt; 

'  PRINT 

jt); 

Dt; 

'  PRINT 

COLOR  15,  1 
LOCATE  ARI,  ACS 
PRINT  At ( i t ,  jt) 
ELEMENT 


TURN  OFF  BLINK 
PRINT 

NON  BLINKING  A  ARRAY 


COLOR  15,  2 

LOCATE  BRt,  RCt  ’  PRINT 

IF  SEL 1$  =  "3"  THEN 

PRINT  St  '  result 

ELSE 

PRINT  USING  "##.##”;  S! 

END  IF 


COLOR  15,  1 

NEXT  jt 
NEXT  it 


’turn  off  blinking  scalar 

f 

COLOR  set,  cbt 

LOCATE  TLRAt  +  ROWAt ,  TLCAt  +  ( NLENt  +  10):  PRINT  Drt 


GOSUB  escape 


DO 

LOOP  UNTIL  INKEY$  <> 
GOTO  666 


ADD:  'matrix  addition  and 

subtraction 


200 
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'  COLOR  OF  BACKGROUND 


cbS  =  7 
COLOR  15,  cbS 
CLS 

IF  SEL1$  =  "2"  THEN 

t 


item$(l)  = 

"  MATRIX  S 

U  B  T  R 

ACT 

I  0  N" 

CALL  box( 1 , 

♦ 

20,  39,  1,  15,  4, 

II  II  M 

n  ,  0, 

«  It  If 

l ,  y 

) 

ELSEIF  SEL 1$ 

( 

=  "1"  THEN 

item$(l)  = 

MATRIX 

A  D  D  I 

T  I  0 

N  " 

CALL  box( 1 , 

» 

20,  39,  1,  15,  4, 

II  tl  A 

n  ,  0 , 

l,  "y" 

) 

END  IF 
444 


item$(l)  =  "MATRICIES  may  have  a  maximum  of  3  ROWS  and 
COLUMNS" 

item$ ( 2 )  =  "  ENTER  THE 

DIMENSIONS  OF  THE  MATRIX" 

i tem$ ( 3 )  =  " 

fl 

item$(4)  = 

!» 

CALL  box ( 7 ,  14,  52,  4, 

i 

«  e  A  It  II  A  1  11  If  \ 

15,  2,  n  ,  0,  1,  y  ) 

LOCATE  12,  24 

INPUT  "How  many  ROWS  in  the  Matrix:  ",  ROWAS 
LOCATE  13,  24 

INPUT  "How  many  COLUMNS  in  the  Matrix:  ",  COLAS 

IF  ROWAS  <  1  OR  COLAS  <  1  GOTO  444  '  limit  matricies 

IF  ROWAS  >  3  OR  COLAS  >  3  GOTO  444  ’  to  3  x  3 


LOCATE  7,  1 
COLOR  15,  cbS 
FOR  iS  =  1  TO  14 
PRINT  SPC( 60 )  ; 
NEXT  iS 


clear 
ENTER  BOX 


'  LOCATION  OF  MATRIX  BOXES 

I 


TLRAS 

r 

10 

'Top 

Left 

Row  A  MATRIX 

TLCAS 

= 

5 

'Top 

Left 

Column  A  MATRIX 

TLCBS 

r 

30 

'Top 

Left 

Column  B  MATRIX 

TLRBS 

= 

10 

'Top 

Left 

row  B  MATRIX 

TLCRS 

55 

'Top 

Left 

Column  R  MATRIX 

TLRRS 

= 

10 

'Top 

Left 

Row  R  MATRIX 

P  COLAS 

=  1  THEN 

'  one 

column  of  A 

TLCAS  =  TLCAS  +  20 
TLCBS  =  TLCBS  ♦  10 
NLENS  =  1 
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ELSEIF  COLAS  =  2  THEN 
TLCAS  =  TLCAS  +  10 
TLCBS  =  TLCBS  +  5 
NLENS  =  7 

ELSEIF  COLAS  =  3  THEN 
TLCBS  =  TLCBS  +  1 
TLCRX  =  TLCRS  +  2 
NLENS  =  13 
END  IF 

CALL  box ( TLRAS ,  TLCAS,  NLENS, 
'matrix  A 
NLENS  =  NLENS  -  2 
CALL  box ( TLRBS ,  TLCBS,  NLENS, 
y  )  matrix  B 
NLENS  =  NLENS  -  1 
CALL  box ( TLRRX ,  TLCRS,  NLENS, 
”y ")' matrix  R 


'two  columns  of  A 


'three  columns  of  A 


ROWAX, 

15, 

1, 

It  ft  a 

y  ,  0, 

2,  "y") 

ROWAX, 

15, 

1, 

"y\  0, 

2  ,_ 

ROWAX, 

15, 

2, 

V\  o, 

2, 

CALL  box(22,  13,  50,  1,  15,  0,  "y" ,  cbS,  1,  "y " ) ' equat ion 
box 

COLOR  11,  0 
LOCATE  23,  21 

PRINT  "Hit  the  <Space  Bar>  to  watch  the  process" 

COLOR  14,  0 
LOCATE  23,  29 
PRINT  " <Space  Bar>" 

t  _____  _____________ 


LABEL  EACH  MATRIX  AND  OPERATION  (+/-) 

COLOR  7,  0  'COLOR  OF  LABEL 


LOCATE  TLRAS 
PRINT  "A" 

+ 

(ROWAX 

* 

2) 

+ 

1, 

TLCAS 

+ 

(  .5 

* 

NLENS) 

LOCATE  TLRBS 
PRINT  "B" 

+ 

(ROWAX 

* 

2) 

+ 

1, 

TLCBS 

+ 

(.5 

* 

NLENS) 

IF  SEL1$  =  "3 

t* 

THEN 

LOCATE  TLRRX 
PRINT  "A  -  B" 

+ 

(ROWAX 

* 

2) 

+ 

1, 

TLCRS 

+ 

(.5 

* 

NLENS)  -  IS 

ELSE 

LOCATE  TLRRX 

+ 

(ROWAX 

* 

2) 

+ 

1, 

TLCRS 

♦ 

(.5 

* 

NLENS)  -  IS 

PRINT  "A  +  B 
END  IF 


'  LOCATE  OPERATORS 


ft 


tt 


COLOR  15,  cbS 
IF  SEL 1$  =  "2"  THEN 

LOCATE  TLRAS  +  ROWAX,  TLCAS  +  (NLENS  +  6):  PRINT 


ELSEIF  SEL 1$  =  "1"  THEN 

LOCATE  TLRAX  +  ROWAX ,  TLCAX  +  (NLENX  +  6):  PRINT  "  +  " 
END  IF 

LOCATE  TLRBX  +  ROWAX,  TLCBX  +  ( NLENX  +  6):  PRINT  "=" 


FOR  iX  =  1  TO  3 
POR  jX  =  1  TO  3 
RANDOMIZE  TIMER 
A 

pickX  =  INT (18  *  RND )  -  9 
AX( iX ,  jX)  =  pickX 
NEXT  jX 
NEXT  iX 

FOR  iX  =  1  TO  3 
FOR  jX  =  1  TO  3 
RANDOMIZE  TIMER 
B 

pickX  =  INT( 18  *  RND)  -  9 
BX(iX,  jX)  =  pickX 
NEXT  jX 
NEXT  iX 


pick  random  numbers  for  array 
between  -9  and  9 


pick  random  numbers  for  array 
between  -9  and  9 


BC IX  =  6  '  COLUMN  SEPARATION 

BR1X  =  2  ’  ROW  SEPARATION 


'+++++++++++++++++++++++++++++++++++++++++++++++++ 


FOR  iX  =  1  TO  ROWAX 

ARX  =  BR1X  *  iX  +  TLRAX  -  1 

FOR  jX  =  1  TO  COLAX 

ACX  =  BC IX  *  jX  +  TLCAX  -  4 

BRX  =  BR1X  *  jX  +  TLRBX  -  1 

COLOR  15,  1 
LOCATE  ARX,  ACX 
PRINT  AX ( iX ,  jX) 
'++++++++++++++++++++++ 

BRX  =  ARX 

BCX  =  (TLCBX  +  2)  +  ((jX  - 
LOCATE  BRX,  BCX 
PRINT  BX(iX,  jX) 

NEXT  jX 
NEXT  iX 
DO 

LOOP  UNTIL  INKEY$  <>  "" 
BLNKCX  =  14 


FOR  ARRAY 


MATRIX  A  COLOR 
PRINT 
ARRAY 


1)  *  6) 

'LOCATE  B  MATRIX  ELEMENTS 
« 

'  LOOP 


'  BLINK  COLOR 


FOR  iX  =  1  TO  ROWAX 

ARX  =  BR1X  *  iX  +  TLRAX  -  1 

FOR  jX  =  1  TO  COLAX 


80 


ACS  =  BC1X  *  jX  +  TLCAX  -  4 
BRX  =  ARX 

BCX  =  BC1X  *  jX  +  TLCBX  -  4 

I 


COLOR  30 


LOCATE  ARX,  ACX 
PRINT  AZ(iS,  jX) 

LOCATE  BRX,  BCX 
PRINT  BX(iX,  jX) 

COLOR  15,  1 

RCX  =  BC1X  *  jX  +  TLCRX  -  4 
LOCATE  BRX,  RCX 
PRINT  ”g|" 

IF  SEL 1$  =  "2"  THEN 
SX  =  AX( iX ,  jX)  -  BZ(iX,  jX) 
ELSEIF  SEL1$  =  "1"  THEN 
SX  =  AX ( iX ,  jX)  +  BX(iX,  jX) 
END  IF 


BLINK 

A  ARRAY  ELEMENTS 
BLINK 

B  ARRAY  ELEMENTS 


PRINT 

RESULT  BOX 


PRINT  ANSWER 
PRINT  ANSWER 


COLOR  11,  0  'clear  equation  box  at  bottom 

LOCATE  23,  40  '  of  screen 

PRINT  SPC( 24  )  ; 

l 


COLOR  15,  0 
LOCATE  23,  45 

f  »  l  »  »  »  »  I  »  •  I 


IF  SEL1$  —  "3"  THEN 

PRINT  USING  "(ft#  -  ##)  =  T :  AX(iX,  jX);  BX(iX,  jX); 

'  PRINT 
ELSE 

PRINT  USING  "(ft#  +  ft#)  =  AX(iX,  jX)  ;  BX(iX,  jX); 

'  PRINT 
END  IF 
DO 

LOOP  WHILE  INKEY$  =  "" 


COLOR  15,  1 
LOCATF  ARX,  ACX 
PRINT  AX(iX,  jX) 
ELEMENT 


TURN  OFF  BLINK 
PRINT 

NON  BLINKING  A  ARRAY 


LOCATE  BRX,  BCX 
PRINT  BX(iZ,  jX) 


BLINK 

B  ARRAY  ELEMENTS 
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COLOR  15,  2 

LOCATE  BRX,  RCX  ’  PRINT 

PRINT  SX  '  SUM  or  DIPF  OF 

ELEMENTS 

COLOR  15,  1 

NEXT  jX 
NEXT  iX 

GOSUB  escape 


TRANSPOSE: 

t _ 


33 

bclrX  =  7 

COLOR  15,  bclrX 
CLS 


i tem$ ( 1 )  =  "MATRIX  TRANSPOSITION" 
CALL  box ( 1 ,  20,  39,  1,  15,  2,  "n",  0,  1,  "y") 


44 

*  — _ _ _ _  _  _  _  _  _  _  _  _  _  _  _  _ _ _ _ 

item$(l)  =  "MATRICIES  may  have  a  maximum  of  3  ROWS  and  3 
COLUMNS" 

item$ ( 2 )  =  "  ENTER  THE  DIMENSIONS  OF  THE  MATRIX" 
item$(3)  = 
i t em$ ( 4 )  =  " 
i tem$ ( 5 )  =  " 

CALL  box( 7 ,  14,  52,  5,  15,  1,  "n",  0,  1,  "y") 


LOCATE  12,  24 

INPUT  "How  many  ROWS  in  the  Matrix:  ",  ROWAX 
LOCATE  13,  24 

INPUT  "How  many  COLUMNS  in  the  Matrix:  ",  COLA* 

IF  ROWAX  <  1  OR  COLAX  <  1  GOTO  44  '  limit  matricies 

IF  ROWAX  >  3  OR  COLAZ  >  3  GOTO  44  ’  to  3  x  3 
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COLOR 

15,  0 

LOCATE 

18,  28 

PRINT 

"Transpose 

<R>ows 

or 

<C>olumns? " 

LOCATE 

18,  38 

COLOR 

14 

PRINT 

;  "<R>" ;  : 

COLOR 

11: 

PRINT  ;  "ows"; 

COLOR 

14 

LOCATE 

18,  48 

PRINT 

;  "<c>" ;  : 

COLOR 

11: 

PRINT  ;  "olumns 
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DO 

RC$  =  INKEY$ 

LOOP  UNTIL  RC$  <>  "" 

IF  RC$  =  "r"  OR  RC$  =  "R"  THEN 
LOCATE  21,  35 

COLOR  0,  7:  PRINT  "ROWS  to  COLUMNS":  COLOR  15,  1 
GOTO  91 

ELSEIF  RC$  =  "c"  OR  RC$  =  "C"  THEN 
LOCATE  21,  35 

COLOR  0,  7:  PRINT  "COLUMNS  to  ROWS":  COLOR  15,  1 
GOTO  91 
END  IF 
GOTO  89 

91 

LOCATE  7,  1 
COLOR  15,  bclrX 
FOR  iX  =  1  TO  16 
PRINT  SPC(60); 

NEXT  iX 


clear 
ENTER  BOX 

ttftftttft'l'ttftf 


LOCATION  OF  MATRIX  BOXES 


TLRAX  =  10 

TLCAX  =  20 

TLCBX  =  43 

TLRBX  =  10 

» 

’Top 

'Top 

'Top 

’Top 

Left 

Left 

Left 

Left 

Row  A  MATRIX 
Column  A  MATRIX 
Column  B  MATRIX 
Column  B  MATRIX 

IF  COLAX  =  1  THEN 

'  one 

column  of  A 

MLENX  =  1 

TLCAX  =  TLCAX  +  10 
ELSEIF  COLAX  =  2  THEN 

'  two 

columns  of  A 

MLENX  =  7 

TLCAX  =  TLCAX  +  6 
ELSEIF  COLAX  =  3  THEN 

'three  columns  of  A 

MLENX  =  13 

END  IF 

IF  ROWAX  =  1  THEN 

'  one 

ROW  of  A 

NLENX  =  1 

ELSEIF  ROWAX  =  2  THEN 

'  two 

ROWS  of  A 

NLENX  =  7 

ELSEIF  ROWAX  =  3  THEN 

'three  ROWS  of  A 

NLENX  =  13 
END  IF 

CALL  box ( TLRAX ,  TLCAX,  MLENX ,  ROWAX,  15,  1,  "y",  0,  2 ,_ 
"y" ) 'matrix  A 

CALL  box ( TLRBX ,  TLCBX ,  NLENX,  COLAX,  15,  4,  "y" ,  0,  2 ,_ 
"y" ) 'matrix  AT 
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'  LABEL  EACH  MATRIX 


COLOR  7,  0 
LLRBX  =  TLRBX 
(  row) 

LLCBX  -  TLCB% 
( column ) 

LLRAX  =  TLRAX 
(  row) 

LLCAX  =  TLCAX 
A( column) 

LOCATE  LLRBX, 
LOCATE  LLRAX, 


+  (COLAX  *  2)  +  1 
+  (  .5  *  NLENX) 

+  (ROWAX  *  2)  +  1 
+  (.5  *  MLENX  +  1) 

LLCBX:  PRINT  "(A) 
LLCAX:  PRINT  "(A)" 


’COLOR  OF  LABEL 
’Location  of  Lable  B 

Location  of  Lable  B 

’Location  of  Lable  A 

’Location  of  Lable 

T"  ’lable  B 
’lable  A 


COLOR  15,  MCX 


COLOR  15,  1 

FOR  iX  =  1  TO  3  ......... 

FOR  jX  =  1  TO  3 

RANDOMIZE  TIMER  ’  pick  random  numbers  for  arr 

A 

pickX  =  INT (10  *  RND)  -  5  ’  between  -5  and  5 

AX(iX,  jX)  =  pickX 
NEXT  jX 

NEXT  iX  . 

• 


BC IX  =  6 

BR1X  =  2 

» 

’  COLUMN  SEPARATION 
’  ROW  SEPARATION 

FOR  iX  =  1  TO  ROWAX 

1 

ARX  =  BR1X  *  iX  +  TLRAX  -  1 

FOR  jX  =  1  TO  COLAX 

ACX  =  BC1X  *  jX  +  TLCAX  -  4 

BRX  =  BR1X  *  jX  +  TLRBX  -  1 

’  FOR  ARRAY 
» 

t 

1 

LOCATE  ARX,  ACX 

’  PRINT 

PRINT  AX ( i X ,  jX) 

NEXT  jX 

NEXT  iX 

f 

’  ARRAY 
• 

1 

cbX  =  7 

’BACKGROUND 

COLOR 

CALL  box ( 22 ,  13,  50,  1,  15,  0,  "y",  cbX,  1,  "y") 
’equation  box 
COLOR  11,  0 
LOCATE  23,  21 
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PRINT  "Hit  the  <Space  Bar>  to  watch  the  process 
COLOR  14,  0 
LOCATE  23,  29 
PRINT  "< Space  Bar>" 

I  _  _  _  _ —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  — 

COLOR  15,  1 


DO 

LOOP  WHILE  INKEY$  = 


'  Perform  the  transposition 

IF  RC$  =  "r"  OR  RC$  =  "R"  THEN 

BLNKCX  =  14 

FOR  iX  =  1  TO  ROWAX 

ARX  =  BR1X  *  iX  +  TLRAX  -  1 

BCX  =  TLCBX  +  2  +  ((iX  -  1)  *  6) 

FOR  jX  =  1  TO  COLAX 

ACX  =  BC1X  *  jX  +  TLCAX  -  4 

BRX  =  BR1X  *  jX  +  TLRBX  -  1 

LOCATE  ARX,  ACX 
COLOR  30 

PRINT  AX(iX,  jX) 


’  BLINK  COLOR 
'  FOR  ARRAY 


BLINK 

THE 

ARRAY  ELEMENT 


COLOR  15 
LOCATE  BRX,  BCX 
PRINT 


’  PRINT 
'  RESULT  BOX 


DO 

LOOP  WHILE  INKEY$  =  "" 

COLOR  15,  1 
LOCATE  ARX,  ACX 
PRINT  AX(iX,  jX) 

ELEMENT 

COLOR  15,  4 
LOCATE  BRX,  BCX 
PRINT  AX(iX,  jX) 

COLOR  15,  1 
NEXT  jX 
NEXT  iX 

ELSEIF  RC$  =  "c"  OR  RC$  =  "C" 

BLNKCX  =  14 
FOR  jX  =  1  TO  COLAX 
ACX  =  BC IX  *  jX  +  TLCAX  -  4 
BRX  =  BR1X  *  jX  +  TLRBX  -  1 


TURN  OFF  BLINK 
PRINT 

NON  BLINKING  ARRAY 


’  PRINT 

'  TRANSPOSED  ELEMENT 


THEN 

'  BLINK  COLOR 
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FOR  iX  =  1  TO  ROWAX 

ARX  =  BR1X  *  iX  +  TLRAX  -  1  '  FOR  ARRAY 

BOX  =  TLCBX  +  2  +  ( ( iX  -  1)  *  6) 


LOCATE  ARX ,  ACX 
COLOR  30 
PRINT  AX ( iX ,  jX) 


BLINK 

THE 

ARRAY  ELEMENT 


COLOR  15 
LOCATE  BRX ,  BCX 
PRINT 


‘  PRINT 
'  RESULT  BOX 


DO 

LOOP  WHILE  INKEY$  = 


COLOR  15,  1 
LOCATE  ARX,  ACX 
PRINT  AX(i X,  jX) 
ELEMENT 

COLOR  15,  4 
LOCATE  BRX,  BCX 
PRINT  AX(iX,  jX) 
COLOR  15,  1 
NEXT  iX 
NEXT  jX 


TURN  OFF  BLINK 
PRINT 

NON  BLINKING  ARRAY 


’  PRINT 

'  TRANSPOSED  ELEMENT 


END  IF 

GOSUB  escape 


RETURN 

END 


invert:  'matrix  inversion  menu 

* _ _ _ _ _ _ _ _ _ _  __ 


COLOR  15,  7 
CLS 


i tem$ ( 1 )  ="  MATRIX  INVERSION" 
CALL  bond,  20,  39,  1,  15,  2,  "n",  0,  1,  "y") 


TRX  =  6 
TCX  =  7 

CALL  box ( TRX ,  TCX,  66,  6,  15,  1,  "y",  0,  1,  "y") 

LOCATE  TRX  +  1,  TCX  +  4 

PRINT  "There  are  several  steps  required  to  INVERT  a  MATRIX. 
LOCATE  TRX  +  3,  TCX  +  4 

PRINT  "The  next  screen  presents  a  menu  from  which  the  user_ 
may  select" 

LOCATE  TRX  +  4,  TCX  +  4 
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PRINT  "a  particular  step.  Since  the  steps  are  listed  in 
the_  appropriate" 

LOCATE  TRX  +  5,  TCX  +  4 

PRINT  "sequence  for  the  user  to  learn  the  process  of  MATRIX. 
INVERSION, " 

LOCATE  TRX  +  6,  TCX  +  4 

PRINT  "we  suggest  that  the  user  procede  from  one  step  to 
the_  next." 

LOCATE  TRX  +  7,  TCX  +  4 

PRINT  "Review  a  step  at  any  time." 

LOCATE  TR%  +  9,  TCX  +  14 
PRINT  "Hit  any  key  to  continue" 

DO 

LOOP  UNTIL  INKEY$  <>  "" 

98 

detaX  =  0  'initialize  the  determinant  of  A 

TRt  =  8 
TCX  =  16 

COLOR  4,  2 

CALL  box ( TRX ,  TCX,  45,  7,  15,  4,  "y",  0,  1,  "y")  'box  for 
matrix  menu 

LOCATE  TRX  +  1,  TCX  +  14 
PRINT  "MATRIX  INVERSION  MENU" 


LOCATE  TRX  +  2,  TCX  +  1 

PRINT  "|| - II" 

LOCATE  TRX  +  4,  TCX  +  4 

PRINT  "1.  DETERMINANT  of  a  MATRIX  (2x2  Example)" 


LOCATE  TRX  +  5,  TCX  +  4 

PRINT  "2.  DETERMINANT  of  a  MATRIX  (3x3  Example)" 


LOCATE  TRX  +  7,  TCX  +  4 
PRINT  "3.  The  COFACTOR  MATRIX 
LOCATE  TRX  +  8,  TCX  +  4 
PRINT  "  The  ADJOINT  MATRIX" 

LOCATE  TRX  +  9,  TCX  +  4 
PRINT  "  The  INVERTED  MATRIX 


LOCATE  TRX  +  13,  TCX  +  6 

PRINT  "  (M)ain  menu  (Q)uit 

COLOR  14 

LOCATE  TRX  +  13,  TCX  +  11 
PRINT  "(M)" 

LOCATE  TRX  +  13,  TCX  +  28 
PRINT  "(Q)" 
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COLOR  15,  0 

LOCATE  TR%  +  15,  TCJ  +  14 
PRINT  "  Make  your  selection  " 

99  DO 

sel$  =  INKEY$ 

LOOP  UNTIL  sel$  <>  "" 

IP  se 1$  =  ”M"  OR  sel$  =  "m"  GOTO  777 
IF  sel$  =  ”Q"  OR  sel$  =  "q"  GOTO  666 
IF  sel$  =  ”1"  THEN 
oX  =  2 

GOSUB  determin 
END  IF 

IF  sel$  =  "2"  THEN 
oX  =  3 

GOSUB  determin 
END  IF 

IF  sel$  =  "3"  THEN  GOSUB  COFACTOR 
GOTO  99 

RETURN 

END 


multiply: 

» _ _ _ _ _ _ _ _ _ _ _ 

1  ’  return  here  to  continue 

'*  *  PROGRAMMER  ********************** 
COLOR  15,  7  '  STARTING  FOREGROUND/BACKGROUND  COLOR  * 

CLS  '  * 

MC%  =4  'A  and  B  matrix  color  (background)  * 

RC%  =  2  'RESULT  matrix  color  (background)  * 

****************************** 


i t em$ ( 1 )  =  "MATRIX  MULTIPLICATION  -  THE  DOT  PRODUCT 
CALL  box( 1 ,  20,  39,  1,  15,  1,  "n",  0,  1,  "y" ) 


'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
This  section  is  for  checking  the  final  answer 
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 

IF  sel2$  =  "v"  THEN 


item$( 1 )  =  "VERIFICATION  BY  USING  -  THE  DOT  PRODUCT" 
CALL  box ( 1 ,  20,  39,  1,  15,  1,  "n",  0,  1,  "y") 


MCX  =  4 

* 

'A  and  B 

matrix  color 

( background ) 

RCX  =  2 

'RESULT 

matrix  color 

( background ) 

* 
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ROWAX  =  3 
COLAX  =  3 
ROWBX  =  3 
COLBX  =  3 

’  LOCATION  OF  MATRIX  BOXES 

f 


TLCBX 

= 

43 

'Top 

Left 

Column 

B  MATRIX 

keep 

TLCRX 

= 

43 

'Top 

'Top 

Left 

Column 

R  MATRIX 

keep 

TLCAX 

= 

-6  *  COLAX  +  37 

Left 

Column 

A  MATRIX 

TLRRX 

- 

15 

'Top 

'Top 

Left 

Row  R 

MATRIX 

keep 

TLRAX 

— : 

15 

Left 

Row  A 

MATRIX 

keep 

MLENX 

= 

15 

TLRBX 

= 

6 

NLENX 

= 

13 

CALL  box ( TLRBX ,  TLCBX ,  NLENX,  ROWBX,  15,  MCX,  "y",  0, 

2 , "y" )_  'matrix  A 

CALL  box ( TLRAX ,  TLCAX ,  MLENX,  ROWAX,  15,  MCX,  "y",  0,  2, 
"y")  'matrix  A  inv 

CALL  box(TLRRX,  TLCRX,  NLENX  -  2,  ROWAX,  15,  RCX ,  "y",  0, 
2,_  "y") 'Result  matix 


BC1X 

BR1X 

1 

=  6 
=  2 

'  COLUMN  SEPARATION 
'  ROW  SEPARATION 

FOR  iX 

=  1  TO 

3 

1 

« 

ARX  = 

BR1X  * 

iX 

+ 

TLRAX  -  1 

’  FOR  ARRAYS 

BRX  = 

BR1X  * 

iX 

+ 

TLRBX  -  1 

«  1  1  f  1  «  • 

1 

FOR  jX 

=  1  TO 

3 

• 

* 

ACX  = 

BC1X  * 

+ 

TLCAX  -  4 

1 

BCX  = 

BC1X  * 

jX 

+ 

TLCBX  -  4 

'  CALCULATE  LOCATIONS 

COLOR  15,  4 
LOCATE  ARX ,  ACX 

PRINT  USING  "##.##";  E ! ( i X ,  jX) 

LOCATE  BRX,  BCX 
PRINT  AX(iX,  jX) 

NEXT  jX  '  LOOP 

NEXT  iX 

DO 

LOOP  WHILE  INKEY$  =  " " 


CALL  BLINK2 ( AX ( ) ,  E!(),  MCX,  RCX,  3,  3,  3) 


PRINT 

ARRAYS 
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I 


Erase 

Words 


CONTINUE  OR  QUIT  SEQUENCE 


CALL  box ( 8 ,  3,  27,  1,  15,  0,  "y",  7,  1,  "y") 

COLOR  11,  0 
LOCATE  9,  7 

PRINT  "(A)gain  -  (M)enu  -  (Q)uit"; 

COLOR  14,  0 

LOCATE  9,  7:  PRINT  "(A)"; 

LOCATE  9,  17:  PRINT  "(M)"; 

LOCATE  9,  26:  PRINT  "(Q)"; 

911  DO 

s  e 1  $  =  INKEY$ 

LOOP  WHILE  sel$  =  "" 

IF  sel$  =  "A"  OR  se 1$  =  "a"  THEN  GOTO  1 

IF  sel$  =  "M"  OR  sel$  =  "m"  THEN  GOTO  777 

IF  sel$  =  "Q"  OR  sel$  =  "q"  THEN  GOTO  666 

GOTO  911 

END  IF 

end  of  check  the  answer 

'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 

4 


i t em$ ( 2 )  =  "  ENTER  THE  DIMENSIONS  OF  THE  MATRICIES  " 
item$(l)  =  "MATRICIES  may  have  a  maximum  of  3  ROWS  and  3 
COLUMNS" 
i tem$ ( 3 )  =  " 
item$ ( 4 )  =  " 
i t em$ ( 5 )  =  " 

CALL  box( 7 ,  14,  52,  5,  15,  4,  "n",  0,  1,  "y") 


LOCATE  12,  24 

INPUT  "How  many  ROWS  in  Matrix  A:  ”,  ROWAX 
LOCATE  13,  24 

INPUT  "How  many  COLUMNS  in  Matrix  A:  ",  COLA* 
LOCATE  14,  24 

INPUT  "How  many  ROWS  in  Matrix  B:  ",  ROWBX 
LOCATE  15,  24 

INPUT  "How  many  COLUMNS  in  Matrix  B:  ",  COLBX 


COLOR  1,  7 
LOCATE  22,  1 
PRINT  " 

PRINT  " 

PRINT  " 
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IF  ROWAS  <  1  OR  COLAS  <  1  OR  COLBS  <  1  OR  ROWBX  <  1  GOTO  4 
' limit  matricies 

IF  ROWAX  >  3  OR  COLAS  >  3  OR  COLBS  >  3  OR  ROWBX  >  3  GOTO  4 

'to  3  x  3 
♦ 


'  LOCATION  OF  MATRIX  BOXES 

I 


TLCBS  = 
TLCRS  = 
TLCAX  = 
TLRRS  = 
TLRAS  = 

1 

43 

43 

-6  * 
15 

15 

COLAS  +  37 

'Top 

'Top 

'Top 

'Top 

'Top 

Left 

Left 

Left 

Left 

Left 

Column  B  MATRIX 

Column  R  MATRIX 

Column  A  MATRIX 

Row  R  MATRIX 

Row  A  MATRIX 

LOCATE  7, 

1 

1 

I  1  I  «  I 

1  1  •  1  1 

COLOR  15, 

7 

f 

clear 

FOR  iS  = 

1  TO 

18 

PRINT  SPC ( 60 ) 

•  * 

P 

ENTER  BOX 

NEXT  iS 

t 

1 

IF  COLAS  =  1  THEN  'one  column  of  A  and  one  row  of  B 

MLENS  =  1 

ELSEIF  COLAS  =  2  THEN  'two  columns  of  A  and  two  rows  of  B 
MLENS  =  7 

ELSEIF  COLAS  =  3  THEN  'three  columns  of  A  and  three  rows  of 
B 

MLENS  =  13 
END  IP 

IF  ROWBX  =  1  THEN 
TLRBS  =  10 

ELSEIF  ROWBX  =  2  THEN 
TLRBS  =  8 

ELSEIF  ROWBX  =  3  THEN 
TLRBS  =  6 
END  IF 

*  _  _  —  —  —  —  —  —  —  ^  —  —  ^ 

IF  COLBS  =  1  THEN 
NLENS  =  1 

ELSEIF  COLBS  =  2  THEN 
NLENS  =  7 

ELSEIF  COLBS  =  3  THEN 
NLENS  =  13 
END  IF 

CALL  box (TLRBS ,  TLCBX , 

2  ,  "y  "  )_  'matrix  B 
CALL  box(TLRAX,  TLCAX, 
y  )  matrix  A 
CALL  box(TLRRX ,  TLCRS , 

2,_  "y") 'Result  matix 


NLENS,  ROWBX,  15,  MCS ,  "y",  0, 
MLENS,  ROWAS,  15,  MCS,  "y",  0,  2, 
NLENX  -  1,  ROWAS,  15,  RCS ,  "y",  0, 
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LABEL  EACH  MATRIX 


COLOR  7,  0  'COLOR  OF  LABEL 

LOCATE  13,  TLCBX  +  (.5  *  NLENZ  +  1):  PRINT  "B" 

LOCATE  TLRAX  +  (ROWAX  *  2)  +  1,  TLCAX  +  (.5  *  MLENZ  +  1) 
PRINT  "A" ' lable  A 

LOCATE  TLRRX  +  (ROWAX  *  2)  +  1,  TLCBX  +  (.5  *  NLENX  +  1)  -  2 
PRINT  "A  •  B" 

I 


IF  COLAX  <>  ROWBX  THEN 
TRX  =  6 
TCX  =  4 

CALL  box ( TRX ,  TCX,  26,  3,  11,  0,  "y",  7,  1,  "y") 
COLOR  14,  0 

LOCATE  TRX  +  3,  TCX  +  3 

PRINT  "  Matrix  A  and  Matrix  B" 

LOCATE  TRX  +  4,  TCX  +  3 

PRINT  "  cannot  be  multiplied." 

COLOR  11,  0 

LOCATE  TRX  +  6,  TCX  +  3 

print  "«j  y 

LOCATE  TRX  +  6,  TCX  +  4 
COLOR  15 

PRINT  "Hit  any  key  to  try  again" 

LOCATE  TRX  +  1,  TCX  +  4 
COLOR  2P ,  0 

PRINT  "  STOP!  STOP!  STOP!  " 

COLOR  15,  4 

»  _ _ _ _ _ _ _ ___________________ 

BC IX  =  6 
BR1X  =  2 


FOR  IX  =  1  TO  COLBX 

BCX  =  BC1X  *  IX  +  TLCBX  -  4  '  CALCULATE  LOCATIONS 

FOR  iX  =  1  TO  ROWAX 

ARX  =  BR1X  *  iX  +  TLRAX  -  1  ’  FOR  ARRAYS 

FOR  jX  =  1  TO  COLAX 

ACX  =  BC1X  *  jX  +  TLCAX  -  4 

FOR  KX  =  1  TO  ROWBX 

BRX  =  BR1X  *  KX  +  TLRBX  -  1  ....... 

I  _____________________________________ 


LOCATE  ARX,  ACX 

'  PRINT 

PRINT  "  X" 

'  XXX 

LOCATE  BRX,  BCX 

1 

PRINT  "  X" 

1 

NEXT  KX 

*  LOOP 

NEXT  jX 

'  LOOP 

NEXT  iX 

NEXT  IX 

COLUMN  SEPARATION 
ROW  SEPARATION 
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COLOR  15,  0 


DO 

LOOP  UNTIL  INKEY  $  <> 

GOTO  1 
END  IF 

COLOR  0,  7 

LOCATE  22,  2 

PRINT  "Watch  the" 

LOCATE  23,  2 

PRINT  "  EQUATION" 

LOCATE  24,  2 

PRINT  "  here  >>"; 


ttftttfltttfttttttt 

Watch  the 

equation 

here 

ftftffftttttfffltt 


IF  COLA*  =  ROWB*  THEN  ACBRZ  =  COLA* 

I 


COLOR  15,  MC* 


FOR  i*  =  1  TO  3 

FOR  j*  =  1  TO  3 

RANDOMIZE  TIMER 

pick*  =  INT (10  *  RND )  -  5 

AX(iZ,  j*)  =  pick* 

NEXT  j* 

NEXT  i* 

FOR  i*  =  1  TO  3 

FOR  j*  =  1  TO  3 

RANDOMIZE  TIMER 

pick*  =  INT ( 10  *  RND)  -  5 

BX( iX ,  jZ)  =  pick* 

NEXT  j* 

NEXT  i* 

» 


BC1*  =  6 
BR1*  =  2 


FOR  1*  =  1  TO  COLB* 

BC*  =  BC1*  *  1*  +  TLCB*  - 

FOR  i*  =  1  TO  ROWA* 

AR*  =  BR1*  *  i*  +  TLRA*  - 

FOR  j*  =  1  TO  ACBR* 

AC*  =  BC1*  *  j*  +  TLCA*  - 

BRX  =  BR1*  *  j*  +  TLRB*  - 
• 


•  t  I  *  I  I  I  I 

PICK  RANDOM  NUMBERS 
for  array  A 
between  -5  and  5 


PICK  RANDOM  NUMBERS 
for  array  B 
between  -5  and  5 


COLUMN  SEPARATION 
ROW  SEPARATION 


4  ’  CALCULATE  LOCATIONS 

I 

1  '  FOR  ARRAYS 

1 

4 

1  . . 


PRINT 

ARRAYS 


LOCATE  AR*,  AC* 
PRINT  AZ( i* ,  j*) 
LOCATE  BRX,  BC* 
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f  I  f  »  •  I  t  I 


PRINT  BX(jX,  IX) 

NEXT  jX  '  LOOP 

NEXT  iX 

NEXT  IX  ....... 

DO 

LOOP  WHILE  INKEY$  =  " " 


CALL  BLINK(AX(),  BX(),  MCX,  RCX,  ROWAX ,  COLBX,  COLAX) 
» 


COLOR  1,  7 
LOCATE  22, 
PRINT  " 
PRINT  " 
PRINT  " 


tttfttttftltllftt* 

Erase 

Words 


CONTINUE  OR  QUIT  SEQUENCE 


CALL  box( 8 ,  3,  27,  1,  15,  0,  "y",  7,  1,  ”y") 
COLOR  11,  0 
LOCATE  9,  7 

PRINT  "(A)gain  -  (M)enu  -  (Q)uit"; 

COLOR  14,  0 

LOCATE  9,  7:  PRINT  "(A)"; 

LOCATE  9,  17:  PRINT  "(M)"; 

LOCATE  9,  26:  PRINT  "(Q)"; 

111  DO 

se 1$  =  INKEY$ 

LOOP  WHILE  sel$  =  "" 

IF  se 1$  =  "A"  OR  sel$  =  "a"  THEN  GOTO  1 

IF  sel$  =  "M"  OR  sel$  =  "m"  THEN  GOTO  777 

IF  sel$  =  "Q"  OR  sel$  =  "q"  THEN  GOTO  666 

GOTO  111 


COFACTOR: 

t _ _ _ 


205 

name$  =  "cofactor" 

cbX  =  7  '  COLOR  OF  BACKGROUND 

COLOR  15,  cbX 

CLS 


i tem$( 1 )  ="  COFACTOR  MATRIX 

CALL  box( 1 ,  20,  39,  1,  15,  4,  "n",  0,  1,  "y") 
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TLRAX  =  6  'Top  Left  Row  A  MATRIX 

TLCAX  =  6  ’Top  Left  Column  A 

MATRIX 

IX  =  13  'length  of  3x3  box 

oX  =  3 


’  LOCATION  OF  MATRIX  BOXES 


CALL  box(TLRAX,  TLCAX,  IX,  oX,  15,  1,  "y",  0,  2,  "y")_ 
'matrix  A 

CALL  box(TLRAX,  TLCAX  +  50,  IX,  oX,  15,  2,  "y",  0,  2 ,_ 
"y") 'cofactor  matrix 


COLOR  7,  0 

tltlllflVVIlllVIVVfltV 

LOCATE  TLRAX  +  7,  TLCAX  +  8 
PRINT  "[A]” 

LOCATE  TLRAX  +  7,  TLCAX  +  50 
PRINT  "Cofactor  Matrix  [A]" 


matrix  labels 


IF  sel2$  =  "c"  GOTO  876 
IF  sel2$  =  "a"  GOTO  876 

FOR  iX  =  1  TO  oX 

I  I  »  f  I  »  «  t  t  t  <  *  »  »  I  »  »  »  »  I  ♦  I  t  I  I  t  ifttflfttl 

FOR  jX  =  1  TO  oX 

RANDOMIZE  TIMER  '  pick  random  numbers  for  array 

A 

pickX  =  INT( 18  *  RND)  -  9  '  between  -9  and  9 

AX ( i X ,  jX)  =  pickX 
NEXT  jX 
NEXT  iX 

Iflfltflfftfllttltftlltttffftfftftll 

'calculate  the  determinant 


detaX  =  0 


IS1X 

=  AX(1, 

1) 

*  1  *  (AX ( 2 , 

2)  * 

AX(3, 

3)  * 

AX  (  3  , 

2)  * 

AX(  2  , 

3)) 

IS2X 

=  AX ( 1 , 

2) 

*  -1  *  (AX ( 2 

.  1) 

*  AX  (  3 

,  3) 

-  AX(3 

,  1)  * 

AX( 2  , 

3)) 

IS3X 

=  AX ( 1 , 

3) 

*  1  *  ( AX( 2 , 

1)  * 

AX  (  3  , 

2)  - 

AX(3, 

1)  * 

‘M2,  2)) 

detaX  =  IS1X  +  IS2X  +  IS3X 

t 


876 
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'calculate  the  determinant 


detaX  =  0 

IS1X  =  AX ( 1 ,  1)  *  1  *  ( AX ( 2 ,  2)  *  AX ( 3 ,  3)  -  AX(3,  2)  * 
AX ( 2 ,  3)) 

IS2X  =  AX ( 1 ,  2)  *  -1  *  (AX ( 2 ,  1)  *  AX(3,  3)  -  AX(3,  1)  * 
AX ( 2 ,  3)) 

IS 3X  =  AX ( 1 ,  3)  *  1  *  (AX ( 2 ,  1)  *  AX(3,  2)  -  AX(3,  1)  * 
AX ( 2 ,  2)) 

detaX  =  IS1X  +  IS2X  +  IS3X 
’LOCATE  5,  35 
'COLOR  0,  7 

'PRINT  " | A |  =  detaX 


BC IX  =  6 
BR1X  =  2 


I  f  t  t  I  f  t  I  f  t  t  I  I  t  «  I  t  t  t  «  t  t 

'  COLUMN  SEPARATION 
'  ROW  SEPARATION 


FOR  iX  =  1  TO  oX 

IftttltttltttfVttfttlffffft 

ARX  =  BR1X  *  iX  +  TLRAX  -  1 

FOR  jX  =  1  TO  oX 

ACX  =  BC IX  *  jX  +  TLCAX  -  4 

COLOR  15,  1 

LOCATE  ARX,  ACX 
PRINT  *?(i%,  jX) 

NEXT  jX 
NEXT  iX 


I  I  »  f  »  »  •  »  I  »  t  t  *  t  »  I  «  I  t  t  t 

MATRIX  A  COLOR 

*  *  *  »  »  »  »  I  »  •  I  I  »  t  I  I  •  I  •  »  t 

PRINT 

ARRAY 


ftffftttllltlfttlfflft 


hfcX  =  0 
and  coloumns 
hbcX  =  7 

rows  and  coloumns 


IF  s e 1 $  = 

ijrX  =  8 
ijcX  =  34 
ijfcX  =  0 
ijbcX  =  7 

ELSE 


"3"  THEN 


Foreground  color  of  highlighted  rows 
Background  color  of  highlighted 


i  and  j  box  row  location 

i  and  j  box  column  location 

i  and  j  foreground  color 

i  and  j  background  color 


ijrX  =  6 
i j  cX  =  64 
ijfcX  =  0 
ijbcX  =  7 


location  of  i  and  j 
box 

foreground  color  of  i  and  j 
background  color  of  i  and  j 


END  IF 
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iX  =  1 

j*  =  1 


•  a****************************************************** 


CALL  box(22,  13,  50,  1,  15,  0,  "y",  cbX,  1,  "y" )' equation 
box 

COLOR  11,  0 
LOCATE  23.  21 

PRINT  "Hit  the  <Space  Bar>  to  watch  the  process" 

COLOR  14,  0 
LOCATE  23,  29 
PRINT  "< Space  Bar>" 


DO 

LOOP  UNTIL  INKEY$  <>  " " 

CALL  box(ijrZ,  ijcX,  8,  2,  ijfcX,  ijbcZ,  "y",  7,  1,  "y")_ 
'print  i  and  j  box 

CALL  iandj(iX,  jX,  hfcX,  hbcX,  ijrX,  ijcX,  ijfcX,  ijbcX)_ 
'PRINT  i  AND  j 

COLOR  hfcX,  hbcX 

CX  =  (TLCAX  +  2)  +  ( ( jX  -  1)  *  6) 

RX  =  (TLRAX  +  1)  +  ( ( iX  -  1)  *  2) 

LOCATE  RX,  CX 

GOSUB  rowfirst 
GOSUB  colfirst 

COLOR  14,  4  'color  of  row  column  intersection 

LOCATE  RX,  CX 
PRINT  AX( iX ,  jX) 

IF  oX  =  3  THEN 

CALL  minor(iX,  jX,  AZ(),  name$,  solX,  tsolX) 

END  IF 

LOCATE  RX ,  CX  +  50 

PRINT  "m"  'print  white  solution  box 


•  »l»*tl»l»»l»ll999999»» 

'  the  loop  starts  here 

f9fffl99999999flt99999f 

FOR  IX  =  1  TO  3 
FOR  mX  =  1  TO  3 
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DO 

LOOP  UNTIL  INKEY$  <>  "" 

LOCATE  RX,  CX  *  50 
COLOR  15,  2 

PRINT  solX  'print  solution  in  cofactor  matrix 

CX(1X,  mX)  =  solX  'fill  the  C  matrix  with  cofactors 

GOSUB  rt 

LOCATE  RX,  CX  +  50 

PRINT  'print  white  solution  box 

NEXT  mX 

LOCATE  RX,  CX  +  50 
COLOR  15,  2 

PRINT  solX  'print  solution  in  cofactor 

uiat  r  i  x 

GOSUB  dn 

LOCATE  RX,  CX  +  50 

PRINT  "m"  'print  solution  box  in  cofactor 

matrix 

NEXT  IX 

RETURN 


END 

dn  : 

'  move  row  down 

CX  =  ( TLCAX  + 
RX  =  (TLRAX  + 

2) 

1)  +  ((iX  -  1)  *  2) 

make 

row  white 

COLOR 

15,  1 

LOCATE 

RX,  CX 

GOSUB 

rowf i rs  t 

make 

row  yellow 

iX  =  iX  +  1 
IF  iX  >  oX  THEN 
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'  THE  COFACTOR 
’  PROCESS  IS  FINISHED 

'++++++♦+++++++++++++++++++++++++++++++++++ 
RX  =  RX  -  4 


LOCATE  RX,  CX:  PRINT  AX(1,  1) 

tllltfflltltftfltt 


LOCATE 

RX 

+ 

1. 

cx: 

PRINT 

M  »♦ 

t 

LOCATE 

RX 

+ 

2, 

cx: 

PRINT 

AX  ( 2  , 

1) 

blue  column 

LOCATE 

RX 

+ 

3, 

cx: 

PRINT 

M  tl 

l 

LOCATE 

RX 

+ 

4, 

cx: 

PRINT 

AX  (  3  , 

1) 

Itttfflltflflltttt 

f  t  t  «  f  t  « 


CALL 

box ( i j  r X ,  ijcX,  8,  2,  7,  7,  "y",  7,  1,  "y") 

'clear  i 
'  and  j 

box 

CALL 

c 1 r 1 ( 1 6 ,  20,  1,  1) 

’clear 

1  minor 

box 


TRX  =  18 
TCX  =  13 

CALL  box ( TRX ,  TCX,  50,  3,  0,  7,  "y" ,  7,  1,  "n") 

LOCATE  TRX  +  1,  TCX  +  4 

PRINT  ”  The  ADJOINT  MATRIX  is  created  by  TRANSPOSING" 

LOCATE  TRX  +  2,  TCX  +  4 

PRINT  "  the  COFACTOR  MATRIX  -  " 

LOCATE  TRX  +  4,  TCX  +  4 

PRINT  "  Hit  <C>ontinue  to  create  the  ADJOINT  MATRIX 
LOCATE  TRX  *  5,  TCX  +  4 

PRINT  "  or  (S)top  for  other  selections." 

LOCATE  TRX  +  4,  TCX  +  10 
COLOR  14,  0 

PRINT  ;  "(c)";  :  COLOR  11,  o;  PRINT  "ontinue" 

LOCATE  TRX  +  5,  TCX  +  10 
COLOR  14,  0 

print  ;  "(s)";  :  color  ll,  0:  print  "top" 

543 

DO 

sel3$  =  INKEY$ 

LOOP  UNTIL  sel3$  <>  "" 

IF  s e 1 3$  <>  "s"  AND  sel3$  <>  "S"  AND  sel3$  <>  "c"  AND  sel3$ 
<>  "C"  GOTO  543 

IF  sel3$  =  "s"  OR  sel3$  =  "S"  THEN 
CALL  clr2(TRX ,  TCX,  TRX  +  6,  TCX  +  57) 
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CALL  box( 22 ,  13,  50,  1,  15,  0,  V,  cbX,  1,  "y" )’  equation 
box 

GOSUB  escape 

ELSEIF  sel3$  =  “c"  OR  sel3$  =  "C"  THEN 
CALL  c 1 r2 ( TRX ,  TCX,  TRX  +  6,  TCX  +  57) 


'  PERFORM  THE  ADJOINT  SEQUENCE 


'MOVE  the  COFACTOR  MATRIX  TO  THE  LEFT 

I  t  »  i  t  «  t  I  t  »  »  I  ?  t  «  t  t  »  t  •  »  t  •  »  »  I  *  t  i  f  t  »  t  •  •  i  »  i 


CALL  c 1 r 2 (TLRAX ,  TLCAX  -  1,  TLRAX  +  7,  TLCAX  +  25)  'ERASE 
MATRIX  [A] 

FOR  tlccX  =  50  TO  6  STEP  -2 

CALL  box(6,  tlccX,  15,  oX ,  15,  2,  "y",  0,  2,  "y" ) ' cof actor_ 
matrix 


COLOR  7,  0 

LOCATE  13,  tlccX 

PRINT  ;  "Cofactor  Matrix  [A' 

FOR  pi  =  1  TO  oX 
ARX  =  BR1X  *  pX  +  TLRAX  -  1 
FOR  qX  =  1  TO  oX 
ACX  =  BC1X  *  qX  +  tlccX  -  4 

COLOR  15,  2 

LOCATE  ARX,  ACX 
PRINT  CX(pX,  qX) 

NEXT  qX 
NEXT  pX 

CALL  c 1 r 2 ( 6  ,  tlccX  +  21,  13 


COLOR  7,  7:  PRINT  " 

VllllVflfltllltfltfff 


MATRIX  C  COLOR 


PRINT 

ARRAY 


tlccX  +  27) 


FOR  jjX  =  1  TO  2000 
NEXT  jjX 

NEXT  tlccX 


item$(l)  ="  ADJOINT  MATRIX 

CALL  box ( 1 ,  20,  39,  1,  15,  1,  "n",  0,  1,  "y") 
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END  IF 


TLCBX  =  55  'Top  Left  Column  B  MATRIX 

TLRBX  -  6  'Top  Left  Column  B  MATRIX 

CALL  box(TLRBX ,  TLCBX ,  15,  3,  15,  4,  "y",  0,  2,  "y") 'matrix 
AT 

LOCATE  TLRAX  +  7,  TLCAX  +  49 
COLOR  7,  0 

PRINT  "  Adjoint  Matrix  [A]" 


cbX  =  7  'BACKGROUND  COLOR 

CALL  box( 22 ,  13,  50,  1,  15,  0,  "y",  cbX,  1,  "y")_ 

'equation  box 
COLOR  11,  0 
LOCATE  23,  21 

PRINT  "Hit  the  <Space  Bar)  to  watch  the  process" 

COLOR  14,  0 
LOCATE  23,  29 
PRINT  "<Space  Bar)" 

t  _ _ _____________________________________ 

COLOR  15,  2 


DO 

LOOP  WHILE  INKEY$  = 


Perform  the  transposition 


RC$  =  "r"  'THIS  IS  HARDWIRED  FOR  A  ROW  EXCHANGE 


IF  RC$ 

=  "r"  OR  RC$ 

=  "R" 

BLNKCX 

=  14 

FOR  iX 

=  1  TO  3 

ARX  = 

BR1X  *  iX 

+ 

TLRAX 

BCX  = 

TLCBX  +  2 

+ 

<  (  iX 

FOR  jX 

=  1  TO  3 

ACX  = 

BC1X  *  jX 

♦ 

TLCAX 

BRX  = 

BR1X  *  jX 

+ 

TLRBX 

LOCATE  ARX ,  ACX 
COLOR  30 
PRINT  CX(iX,  jX) 

DX(jX,  iX)  =  CX(iX,  jX) 


THEN 

'  BLINK  COLOR 


-  1  '  FOR  ARRAY 

1)  *  6) 


-  4 

-  1 

'  BLINK 
’  THE 

*  ARRAY  ELEMENT 

********  make  d  the  inverse 


COLOR  15 

LOCATE  BRX,  BCX  '  PRINT 
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PRINT 


RESULT  BOX 


DO 

LOOP  WHILE  INKEY$  = 

COLOR  15,  2 
LOCATE  ARX,  AC* 

PRINT  CX(iX,  jX) 

ELEMENT 

COLOR  15,  4 
LOCATE  BRX,  BCX 
PRINT  CX(iX,  jX) 

COLOR  15,  2 
NEXT  jX 
NEXT  iX 

ELSEIF  RC$  =  "c"  OR  RC$  =  "C"  THEN 

'  BLINK  COLOR 


FOR  ARRAY 


BLINK 

THE 

ARRAY  ELEMENT 


'  PRINT 
'  RESULT  BOX 


BLNKCX 

=  14 

FOR  jX 

=  1  TO  3 

ACX  = 

BC IX  *  jX 

+ 

TLCAX 

-  4 

BRX  = 

BR1X  *  jX 

+ 

TLRBX 

-  1 

FOR  iX 

=  1  TO  3 

ARX  = 

BR1X  *  iX 

+ 

TLRAX 

-  1 

BCX  = 

TLCBX  +  2 

+ 

(  <  - 

1) 

LOCATE 

ARX,  ACX 

COLOR  30 

PRINT  CX(iX,  jX) 

COLOR  15 
LOCATE  BRX,  BCX 
PRINT 


TURN  OFF  BLINK 
PRINT 

NON  BLINKING  ARRAY 


PRINT 

TRANSPOSED  ELEMENT 


DO 

LOOP  WHILE  INKEY$  = 


COLOR  15,  2 
LOCATE  ARX,  ACX 
PRINT  CX(iX,  jX) 
ELEMENT 

COLOR  15,  4 
LOCATE  BRX,  BCX 
PRINT  CX(iX,  jX) 
COLOR  15,  2 
NEXT  iX 
NEXT  jX 


TURN  OFF  BLINK 
PRINT 

NON  BLINKING  ARRAY 


’  PRINT 

’  TRANSPOSED  ELEMENT 


END  IF 
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TRX 

TCX 


18 

13 


CALL  box (TRX ,  TCX,  50,  3,  0,  7,  "y",  7,  1,  "n”) 

LOCATE  TRX  +  1,  TCX  +  4 

PRINT  "  The  INVERTED  MATRIX  is  created  by  dividing” 

LOCATE  TRX  +  2,  TCX  +  4 

PRINT  "  the  ADJOINT  MATRIX  by  the  MATRIX  DETERMINANT.  " 
LOCATE  TRX  +  4,  TCX  ♦  4 

PRINT  "  Hit  <C>ontinue  to  INVERT  the  MATRIX  " 

LOCATE  TRX  +  5,  TCX  +  4 

PRINT  "  or  (S)top  for  other  selections." 

LOCATE  TRX  +  4,  TCX  +  10 
COLOR  14,  0 

PRINT  :  "(c)";  :  COLOR  11,  0:  PRINT  "ontinue" 

LOCATE  TRX  +  5,  TCX  +  10 
COLOR  14,  0 

print  ;  "(s)";  :  color  11,  0:  print  "top" 

544 

DO 

sel3$  =  INKEY$ 

LOOP  UNTIL  sel 3$  <>  "" 

IF  sel3$  <>  "s"  AND  sel3$  <>  "S"  AND  sel3$  <>  "c"  AND  sel3$ 
<>  "C"  GOTO  544 

IF  sel3$  =  "s"  OR  sel3$  =  "S"  THEN 
CALL  c 1 r2 ( TRX ,  TCX,  TRX  +  6,  TCX  +  57) 

CALL  box( 22 ,  13,  50,  1,  15,  0,  "y",  cbX,  1,  "y")_ 

'equation  box 
GOSUB  escape 

ELSEIF  sel3$  =  ”c"  OR  sel3$  =  "C"  THEN 
CALL  c 1 r2 ( TRX ,  TCX,  TRX  +  6,  TCX  +  57) 


•  M  f  I  I  t  t  »  I  I  »  t  I  I  »  I  I  I  t  »  I  t  »  I  I  J  »  »  I  I 

PERFORM  THE  INVERSION  SEQUENCE 


This  is  where  the  adjoint  should  be  moved,  and 
the  derterminent  calculated  so  that  it  can 
be  divided  into  the  adjoint. 


END  IF 


'MOVE  the  adjoint  MATRIX  TO  THE  LEFT 
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CALL  clr2 (TLRAX ,  TLCAX  -  1,  TLRAX  +  7,  TLCAX  +  25)  ’ERASE 
MATRIX  [A] 

FOR  tied  =  50  TO  10  STEP  -2 

CALL  box(6,  tied,  15,  oX ,  15,  4,  "y",  0,  2,  "y " )  '  cof  actor_ 
matrix 

COLOR  7,  0 


LOCATE  13,  tlccX 

PRINT  ;  "Adjoint  Matrix  [A]  " ;  :  COLOR  7,  7:  PRINT 


FOR  pX  =  1  TO  oX 
ARX  =  BR1X  *  pX  +  TLRAX  -  1 
FOR  qX  =  1  TO  oX 
ACX  =  BC IX  *  qX  +  tlccX  -  4 

COLOR  15,  4 

LOCATE  ARX,  ACX 
PRINT  DX(pX,  qX) 

NEXT  qX 
NEXT  pX 


MATRIX  C  COLOR 


PRINT 

ARRAY 


CALL  clr2(6,  tlccX  +  21,  13,  tlccX  +  27) 


FOR  jjX  =  1  TO  2000 
NEXT  jjX 


NEXT  tlccX 


item$ ( 1 )  =  "T  H  E  INVERTED  MATRIX" 
CALL  box ( 1 ,  20,  39,  1,  15,  2,  "n",  0,  1,  "y") 


LOCATE  5,  35 
COLOR  0,  7 

PRINT  " j A |  =  ";  detaX 
'calculate  the  determinant 


totsumX  =  0 


IS1X 

=  AX ( 1 , 

1) 

*  1  *  ( AX( 2 , 

2)  * 

AX(3, 

3)  - 

AX  (3, 

2)  * 

AX(2, 

3)) 

IS2X 

=  AX(1, 

2) 

*  -1  *  ( AX ( 2 

,  1) 

*  AX  (  3 

,  3) 

-  AX  (  3 

,  1) 

AX(  2 , 

3)) 

IS3X 

=  AX ( 1 , 

3) 

*  1  *  (AX ( 2 , 

1)  * 

AX(  3 , 

2)  - 

AX(3, 

1)  * 

AX(2,  2)) 

totsumX  =  IS1X  +  IS2X  +  IS3X 
« 
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SPC(4  ) 


LOCATE  9,  38 
COLOR  15,  7:  PRINT  ; 

LOCATE  9,  50 

COLOR  15,  7:  PRINT  ;  "  =  " ; 

TLRBX  =  6 
TLCBX  =  55 

CALL  box(TLRBX ,  TLCBX,  15,  oX,  15,  1,  "y",  0,  2,  V) 
'inverted  matrix  box 
COLOR  7,  0 
LOCATE  13,  TLCBX 
PRINT  ;  "Inverted  Matrix  [A] 

CALL  box( 22 ,  13,  50,  1,  15,  0,  "y",  cbX,  1,  "y") 
'equation  box 
COLOR  11,  0 
LOCATE  23,  21 

PRINT  "Hit  the  <Space  Bar)  to  watch  the  process" 

COLOR  14,  0 
LOCATE  23,  29 
PRINT  "<Space  Bar>" 


'  COLUMN  SEPARATION 

'  RON  SEPARATION 

'Top  Left  Row  A  MATRIX 

'Top  Left  Column  A  MATRIX 
• 


locate  the  scalar 

»  •  I  I  f  I  I  f  •  I  •  f  I  I  f  «  I  f  I  t  f 

scX  =  0  'scalar  color 

COLOR  scX,  cbX 

LOCATE  9,  40:  PRINT  "|A|" 

totsumX 

COLOR  15,  1 

DO 

LOOP  UNTIL  INKEY$  <>  "" 

COLOR  30,  cbX 

LOCATE  9,  40:  PRINT  "jA|"  'totsumX 

IF  totsumX  =  0  THEN 
TRX  =  18 
TCX  =  13 

CALL  box(TRX,  TCX,  50,  3,  0,  7,  "y",  7,  1,  "n") 

LOCATE  TRX  +  1,  TCX  +  4 

PRINT  "  The  DETERMINANT  of  Matrix  A  is  0. 


BC IX  =  6 
BR1X  =  2 
TLRAX  =  6 
TLCAX  =  10 
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LOCATE  TRX  +  2,  TCX  +  4 

PRINT  "  You  cannot  divide  by  0." 

LOCATE  TRX  +  4,  TCX  +  4 

PRINT  "  Hit  any  key  to  return  to  the  INVERSION  MENU. 
DO 

LOOP  UNTIL  INKEY$  <>  "" 

GOTO  98 


END 

IF 

COLOR  15,  4 
BLNKCX  =  14 

FOR 

II 

TO  3 

ARX 

=  BR1X 

*  iX 

+ 

TLRAX 

FOR 

j*  =  i 

TO  3 

ACX 

=  BC1X 

*  j* 

+ 

TLCAX 

BRZ 

=  ARX 

BCX 

=  BC1X 

*  j* 

+ 

TLCBX 

BLINK  COLOR 


COLOR  30,  4 

LOCATE  ARX,  ACX 

PRINT  DZ(iZ,  jX) 

'  BLINK 

'  D  ARRAY  ELEMENTS 

COLOR  15,  1 

RCX  =  BC1X  *  jX  +  TLCBX  -  4 

LOCATE  BRX,  RCX 

PRINT  "If" 

» 

’  PRINT 
’  RESULT  BOX 

S!  =  DX ( i X ,  jX)  /  totsumX 

E ! ( iX ,  jX)  =  DX( iX ,  j%)  /  totsumX 

t 

COLOR  11,  0  '  clear  equation 

LOCATE  23,  40  '  of  screen 

PRINT  SPC(24)J 
» 

box  at  bottom 

COLOR  15,  0 

LOCATE  23,  45 
*  1  »  »  •  »  »  •  » 

PRINT  USING  "(#»*#  r  ####)  = 

'PRINT 

DO 

LOOP  WHILE  INKEY$  =  "" 

DX(iX,  jX) ;  totsumX; 

COLOR  15,  4 

’  TURN  OFF  BLINK 
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LOCATE  ARZ ,  ACZ 
PRINT  DZ( iZ ,  jZ) 
ELEMENT 


PRINT 

NON  BLINKING  D  ARRAY 


'  PRINT 
result 

PRINT  USING  ”##.##" ;  E ! ( iZ ,  jZ) 

’  PRINT  USING  "##.##";  S! 

END  IF 

COLOR  15,  1 

NEXT  jZ 
NEXT  iZ 


COLOR  15,  1 
LOCATE  BRZ,  RCZ 
IF  SEL1$  =  ”3”  THEN 
PRINT  SZ 
ELSE 


'turn  of£  blinking  scalar 


COLOR  0,  7 

LOCATE  9,  40:  PRINT  ”Ja|"  'totsumZ 


GOSUB  cescape 


DO 

LOOP  UNTIL  INKEY$  <> 
GOTO  666 


GOSUB  escape 
END  IF 

CALL  iand j  ( iZ ,  jZ,  hfcZ,  hbcZ,  ijrZ,  ijcZ,  ijfcZ,  ijbcZ) 

RZ  =  (TLRAZ  +  1)  +  ( < iZ  -  1)  *  2) 

CZ  =  (TLCAZ  +  2) 

LOCATE  RZ,  CZ 
GOSUB  rowfirst 

CZ  =  (TLCAZ  +  2)  +  ((jZ  -  1)  *  6) 

RZ  =  TLRAZ  +  1 
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GOSUB  colfirst 


RX  =  (TLRAX  +  1)  +  ( ( iX  -  1)  *  2) 
CX  =  (TLCAX  +  2)  +  ((jX  -  1)  *  6) 

COLOR  14,  4 
LOCATE  RX,  CX 
PRINT  AX(iX,  jX) 


yellow  on  red 


COLOR  hfcX,  hbcX 
IF  oX  =  3  THEN 

CALL  minor(iX,  jX,  AX(),  name$,  solX,  tsolX)  'print  minor 
END  IF 

I  I  I  I  <  t  t  <  I  I  t  (  t  I  I  1  « 

RETURN 

END 

» _ _ _ _  _  _  _  _  _ _ _ _ _  _ _ _ _ _ _ 

rt:  '  move  column  RIGHT 


RX  =  (TLRAX  +  1) 

CX  =  (TLCAX  +  2)  +  ((jX  -  1)  *  6) 
COLOR  15,  1 


make  column  white 


GOSUB  colfirst 


'make  next  column  yellow 


jX  =  jX  +  1 

IF  jX  >  oX  THEN  jX  =  1 
COLOR  hfcX,  hbcX 

CX  =  (TLCAX  +  2)  +  ((jX  -  1)  *  6) 

RX  =  (TLRAX  +  1) 

GOSUB  colfirst 

CALL  iandj(iX,  jX,  hfcX,  hbcX,  ijrX,  ijcX,  ijfcX,  ijbcX) 
’i  AND  j 

RX  =  (TLRAX  +  1)  +  ( ( iX  -  1)  *  2) 

LOCATE  RX,  (TLCAX  +  2) 
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GOSUB  rowfirst 


RX  =  (TLRAX  +l)+((iX-l)*2) 

CX  =  (TLCAX  +  2)  +  ((jX  -  1)  *  6) 

COLOR  14,  4 
LOCATE  RX,  CX 
PRINT  AX(iX,  jX) 

COLOR  hfcX,  hbcX 

IF  oX  =  3  THEN 

CALL  minor(iX,  jX,  AX(),  name$ ,  solX,  tsolX) 
END  IF 
RETURN 
END 


determin : 


tsolX  =  0 
i j£lag$  =  "0" 

'****  ORDER  OF  THE  MATRIX 
IF  oX  =  3  THEN 

’it*************************** 

IX  =  13 
TLRAX  =  6 
TLCAX  =  3 

ELSEIF  oX  =  2  THEN 
1  **************************** 


**** 

*★** 

'length  of  3x3  box 
'Top  Left  Row  A  MATRIX 
'Top  Left  Column  A  MATRIX 

**** 


IX  =  7 
TLRAX  =  11 
TLCAX  =  5 
END  IF 


'length  of  2x2  box 
'Top  Left  Row  A  MATRIX 
'Top  Left  Column  A  MATRIX 


cbX  =  7  *  COLOR  OF  BACKGROUND 

COLOR  15,  cbX 

CLS 

item$( 1)  ="  MATRIX  DETERMINANT" 
CALL  box( 1 ,  20,  39,  1,  15,  2,  "n",  0,  1,  "y") 


R1X  =  7 
C1X  =  10 

IF  oX  =  2  AND  sel2$  <>  "a"  THEN 

CALL  box(RlX  -  1,  C1X  -  2,  62,  4,  15,  1,  "y",  0,  1,  *’y") 
LOCATE  R1X,  C1X 

PRINT  "  The  DETERMINANT  can  only  be  calculated  for  SQUARE 
matrices  .  " 

LOCATE  R1X  +  1,  C1X 
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PRINT  "  Since  a  SQUARE  matrix  has  the  same  number  of  ROWS_ 
and  COLUMNS," 

LOCATE  R1X  +  2,  CIS 

PRINT  "  the  size  of  the  matrix  is  expressed  using  a  single 
term  known” 

LOCATE  R1X  +  3,  CIS 

PRINT  "  as  the  ORDER  of  the  matrix. 

LOCATE  R1X  +  5,  CIS 

PRINT  "  Hit  any  key  to  see  how  to  find  the  DETERMINANT  of 
a_  matrix  of" 

LOCATE  R1X  +  6,  C1X 
PRINT  "  ORDER  2." 

DO 

LOOP  UNTIL  INKEY$  <>  "" 

ELSE 
END  IF 


clear  explanation 
box 


COLOR  7,  7 

FOR  nX  =  1  TO  10 

LOCATE  RlX  +  nX  -  2,  C1X  -  3 

PRINT  SPC( 80  -  C1X); 

NEXT  nX 


’  LOCATION  OF  MATRIX  BOX 


CALL  box ( TLRAX ,  TLCAX ,  IX,  oX ,  15,  1,  "y",  0,  3,  "y")_ 
'matrix  A 


IF  oX  =  2  THEN 

COLOR  15,  7  '  place  equal  sign  for 

LOCATE  TLRAX  +  2,  TLCAX  +  15 

PRINT  "  =  "  '  an  order  2  matrix 

END  IF 

» 

IF  sel2$  =  "A"  OR  sel2$  =  "a"  THEN  GOTO  1212 


FOR  iX  =  1  TO  oX 


FOR  jX  =  1  TO  oX 
RANDOMIZE  TIMER 

pickX  =  I NT (18  *  RND )  -  9 
AX(iX,  jX)  =  pickX 
NEXT  jX 
NEXT  iX 


pick  random  numbers 
for  array  A 
between  -9  and  9 


'Make  1  in  5  singular 
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RANDOMIZE  TIMER 
A 

sing*  =  INT( 3  *  RND ) 
IF  sing*  =  2  THEN 
FOR  jX  =  1  TO  oX 
AX ( 1 ,  jX)  =  AX( 2 ,  jX) 
NEXT  jX 
END  IF 


'calculate  the  determinant 


detaX  =  0 
IS1X  =  AX ( 1 , 

1) 

★ 

1  * 

( AX( 2  ,  2)  * 

AX ( 3 ,  3)  - 

AX ( 3 ,  2)  * 

AX ( 2 ,  3)) 

IS2X  =  AX ( 1 , 

2) 

* 

-1  * 

(AX ( 2 ,  1) 

*  AX ( 3 ,  3) 

-  AX ( 3 ,  1)  * 

AX ( 2 ,  3)) 
IS3X  =  AX ( 1 , 

3) 

* 

1  * 

(AX ( 2 ,  1)  * 

AX ( 3 ,  2)  - 

AX(3,  1)  * 

AX(2,  2)) 

detaX  =  IS1X 
> 

+ 

IS2X  + 

IS3X 

pick  random  numbers  for  array 
'  between  0  and  2 


1212 


BC IX  =  6 
BR1X  =  2 

FOR  iX  =  1  TO  oX 

ARX  =  BR1X  *  iX  +  TLRAX  -  1 

FOR  jX  =  1  TO  oX 

ACX  =  BC1X  *  jX  +  TLCAX  -  4 


COLUMN  SEPARATION 
ROW  SEPARATION 


•  ttflltttlfttflft 


COLOR  15, 


MATRIX  COLOR 


LOCATE  ARX,  ACX 
PRINT  AX(iX,  jX) 
NEXT  jX 
NEXT  iX 


PRINT 

ARRAY 


hfcX  =  0 

Foreground 

col 

coloumns 

hbcX  =  7 

Background 

col 

coloumns 

or  of  highlighted  rows  and 
or  of  highlighted  rows  and 


'******************************************************* 


boxrX  =  22 
boxcX  =  18 

t  —  ...  am  mm  ...  _  _  —  —  —  —  —  — (  —  —  —  —  —  mmimammm  ~  ~ »  am  mm  am  —  ^ 

i tem$ ( 1 )  =  "EXPAND  the  MATRIX  along  a  <R>ow  or  <C>olumn?” 

CALL  boxfboxrX,  boxcX,  44,  1,  15,  0,  "n",  7,  1,  ”n") 

»  —  —  —  —  —  —  —  —  — m  — ,  —  —  —  —  — —  —  — , 

COLOR  12,  0 

LOCATE  boxrX  +  1 ,  boxcX  +  3 


111 


PRINT  ;  "EXPAND"; 

COLOR  15 

PRINT  "  the  MATRIX  along  a  " 
COLOR  14,  0 

LOCATE  boxrX  +  1,  boxcX  ♦  29 
PRINT  ;  "<R>" ; 

COLOR  lit  PRINT  "ok"; 

LOCATE  boxrX  +  1,  boxcX  +  38 
COLOR  14:  PRINT  ;  "<C> " ; 
COLOR  11:  PRINT  "olumn"; 


77 

DO 

pick$  =  INKEYS 
LOOP  UNTIL  pick$  <> 

COLOR  hfcX,  hbcX 
iX  =  1 

j*  =  1 

CX  =  (TLCAX  +  2)  +  ( ( jX  -  1)  *  6) 
RX  =  ( TLRAX  ♦  1)  +  ( ( iX  -  1)  *  2) 


t  1  •  1  t  (  t  t  •  t  «  1  t  1  1  •  «  •  t  1  *  1  «  1  f  1  1  •  t 

ijrX  =  1 

location  of  i  and  j 

i jcX  =  4 

box 

ijfcX  =  0 

'  foreground  color  of  i  and  j 

ijbcX  =  7 

background  color  of  i  and  j 

1  1  1  f  1  1  M  1  1  1  1  t  t  t  1  1  1  1  1  1  1  1  (  1  1  f  (  1 

'  ROW  IS  PICKED  FIRST 

IF  pick$  =  "r"  OR  pick$  =  "R"  THEN 


CALL  box(boxrX,  boxcX,  44,  1,  7,  7,  "y",  7,  1,  "n") 


COLOR  hfcX,  hbcX 
name$  =  "ROW" 
flag$  =  "0" 

LOCATE  RX,  CX 

GOSUB  rowfirst 
GOSUB  abox 

24  'return  here 

KEY  16,  CHR$ ( &H0 )  +  CHR$(57) 
KEY  15,  CHR$ (&H0 )  +  CHR$(1) 
KEY  17,  CHR$ ( &H0 )  +  CHR$(28) 


<Space>  -  ? 

’  <Esc>  -  QUIT 
<Enter>  -  ? 
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29 


KEY  ( 

15 

) 

ON 

KEY  ( 

16 

) 

ON 

KEY  ( 

17 

) 

ON 

ON 

KEY( 

16 

) 

GOSUB 

MOVEDN 

ON 

KEY  ( 

15 

) 

GOSUB 

EXT 

ON 

KEY  ( 

17 

) 

GOSUB 

rtn 

GOTO  29 

GOTO  88 


COLUMN  IS  PICKED  FIRST 


ELSEIF  pick$  =  "C"  OR  pick$  =  "c"  THEN 
name$  =  "COLUMN" 
flag$  =  "1" 


CALL  box(boxrt,  boxcl,  44,  1,  7,  7,  "y",  7,  1,  "n") 

COLOR  hfct,  hbc t 

GOSUB  colfirst 
GOSUB  abox 


25 

'return  here 

KEY 

17,  CHR$ ( &H0 )  +  CHR$ ( 28 ) 

'enter  -  ? 

KEY 

16,  CHR$ ( &H0 )  +  CHR$ (57) 

(Space) 

KEY 

15,  CHR$ ( &H0 )  +  CHR$(1) 

'esc  -  QUIT 

KEY (15)  ON 

KEY (16)  ON 

KEY (17)  ON 

26 

ON  KEY (15)  GOSUB  EXT 

ON  KEY (16)  GOSUB  MOVERT 

ON  KEY ( 17 )  GOSUB  rtn 

GOTO  26 

GOTO  88 
ELSE  GOTO  77 


88  END  IF 

l 


boxrt  =  22 
boxcX  =  10 

item$(l)  =  "  Hit  (Space  Bar)  to  EXPAND  the  MATRIX 

CALL  box(boxrX,  boxcX,  54,  1,  15,  0,  "n",  7,  1,  "n") 

»  —  —  mm  mm  mm  mm  ^  w  —  —  —  —  — 

COLOR  14,  0 
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LOCATE  boxrX  +  1,  boxcX  +  13 
PRINT  "< Space  Bar>"  ; 


'  COLUMN  POSITION  after  row  selection 

I  _ _ _ _ ___________________________ 

IF  name$  =  "ROW"  THEN 

CX  =  (TLCAX  +  2)  +  ((jX  -  1)  *  6) 

RX  =  (TLRAX  +  1) 

COLOR  hfcX,  hbcX 

GOSUB  colfirst 

RX  =  (TLRAX  +  1)  +  ((iX  -  1)  *  2) 

COLOR  14,  4  'color  of  row  column  intersection 

LOCATE  RX,  CX 
PRINT  AX(iX,  jX) 


ROW  POSITION  after  column  selection 


ELSEIF  name$  =  "COLUMN"  THEN 
CX  =  (TLCAX  +  2) 

RX  =  (TLRAX  +  1) 

COLOR  hfcX,  hbcX 
LOCATE  RX,  CX 

GOSUB  rowfirst 

CX  =  (TLCAX  +  2)  +  ((jX  -  1)  *  6) 

COLOR  14,  4  'color  of  row  column  intersection 

LOCATE  RX,  CX 
PRINT  AX ( iX ,  jX) 

END  IF 

COLOR  hfcX,  hbcX 
IF  oX  =  3  THEN 

CALL  minor(iX,  jX,  AX(),  name$,  solX,  tsolX) 

ELSEIF  oX  =  2  THEN 

CALL  determ2(iX,  jX,  AX(),  name$,  solX) 

END  IF 


101  'return  here 

IF  oX  =  3  THEN 

IF  name$  =  "COLUMN"  AND  iX  =  3  THEN  GOSUB  nescape 
IF  name$  =  "ROW"  AND  jX  =  3  THEN  GOSUB  nescape 
END  IF 
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IF  oX  =  2  THEN 

IF  name$  =  "COLUMN"  AND  iX  =  2  THEN  GOSUB  nescape 
IF  name$  =  "ROW"  AND  jX  =  2  THEN  GOSUB  nescape 
END  IF 

DO 

LOOP  UNTIL  INKEY$  <>  "" 

IF  nane$  =  "COLUMN"  THEN 
GOSUB  MOVEDN 

ELSEIF  name$  =  "ROW"  THEN 
GOSUB  MOVERT 
END  IF 


MOVEDN:  '  move  determinent  row  down 


CX  =  (TLCAX  +  2) 

RX  =  (TLRAX  +  1)  +  ( ( iX  -  1)  *  2) 

KEY (11)  OFF 
KEY (12)  OFF 
KEY ( 13 )  OFF 
KEY (  14  )  OFF 
KEY (15)  OFF 
KEY (16)  OFF 
KEY (17)  OFF 


make 

row  white 

COLOR 

15,  1 

LOCATE 

RX,  CX 

GOSUB 

rowf irst 

make 

row  yellow 

iX  =  iX  +  1 

IF  iX  >  oX  THEN  iX  =  1 
IF  ijflag$  =  "1"  THEN 

CALL  iandj(iX,  jX,  hfcX,  hbcX,  ijrX,  ijcX,  ijfcX,  ijbcX) 
END  IF 

COLOR  hfcX,  hbcX 

RX  =  (TLRAX  +  1)  +  <  < iX  -  1)  *  2) 

CX  =  (TLCAX  +  2) 

LOCATE  RX,  CX 
GOSUB  rowfirst 

IF  flag$  =  "0"  GOTO  24 
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CZ  =  (TLCAZ  ♦  2)  ♦  ((jZ  -  1)  *  6) 

RZ  =  TLRAZ  +  1 

GOSUB  colfirst 

RZ  =  (TLRAZ  +  1)  +  ((iZ  -  1)  *  2) 

CZ  =  (TLCAZ  +  2)  +  ( ( jZ  -  1)  *  6) 

COLOR  14,  4  'yellow  on  red 

LOCATE  RZ,  CZ 
PRINT  AZ(iZ,  jZ) 


COLOR  hfcZ,  hbcZ 
IF  oZ  =  3  THEN 

CALL  minor(iZ,  jZ,  AZ(),  name$,  solZ,  tsoll) 
ELSEIF  oZ  =  2  THEN 

CALL  determ2(iZ,  jZ,  AZ(),  name$,  solZ) 

END  IF 

GOTO  101 

RETURN 

END 


MOVERT 

»  _ _ _ 


move  determinent  column  RIGHT 


RZ  =  (TLRAZ  +  1) 

CZ  =  (TLCAZ  +  2)  +  ((jZ  -  1)  *  6) 

KEY (11)  OFF 
KEY ( 12 )  OFF 
KEY (13)  OFF 
KEY ( 14  )  OFF 
KEY (15)  OFF 
KEY (16)  OFF 
KEY (17)  OFF 

COLOR  15,  1 


make  column  white 


GOSUB  colfirst 


'make  next  column  yellow 
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j*  =  j*  +  1 

‘IF  JX  >=  oX  THEN  JX  =  oX 
IF  jX  >  oX  THEN  jX  =  1 

COLOR  hfcX,  hbcX 

CX  =  (TLCAX  +  2)  +  ((jX  -  1)  *  6) 

RX  =  (TLRAX  +  1) 

GOSUB  colfirst 

IF  i jf lag$  =  "l"  THEN 

CALL  iandj(iX,  jX,  hfcX,  hbcX,  ijrX,  ijcX,  ijfcX,  ijbcX) 
END  IF 

COLOR  hfcX,  hbcX 


IF  flag$  =  "1"  GOTO  25 

RX  =  (TLRAX  +  1)  +  C ( iX  -  1)  *  2) 

LOCATE  RX,  (TLCAX  +  2) 

GOSUB  rowfirst 

RX  =  (TLRAX  +  1)  +  ((iX  -  1)  *  2) 

CX  =  (TLCAX  +  2)  +  ((jX  -  1)  *  6) 

COLOR  14,  4 
LOCATE  RX,  CX 
PRINT  AX(iX,  jX) 

COLOR  hfcX,  hbcX 

IF  oX  =  3  THEN 

CALL  minor(iX,  jX,  AX(),  name$,  solX,  tsolX) 
ELSE I F  oX  =  2  THEN 

CALL  determ2(iX,  jX,  AX(),  name$,  solX) 

END  IF 

GOTO  101 

RETURN 

END 


ext: 

»  _ _ 

KEY (17)  OFF 
KEY (16)  OFF 
COLOR  7,  7 
CLS 

I  —  —  _________  _  _  _  _  —  ____________  _ 

i tem$( 1 )  =  "  MATRIX  INVERSION 
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CALL  box( 1 ,  20,  39,  1,  15,  2 


0,  1,  V) 


GOTO  98 

RETURN 

END 


CALL  box(ijrZ,  ijcZ,  8,  2,  ijfcX,  ijbcZ,  "y",  7,  1,  "n") 
'print  i  and  j  box 

CALL  iandj(iX,  jX,  hfcZ,  hbcZ,  ijrX,  ijcZ,  ijfcZ,  ijbcX) 
’i  AND  j 
ijflag$  =  "1" 

KEY (11)  OFF 
KEY ( 12  )  OFF 
KEY (13)  OFF 
KEY (  14  )  OFF 
KEY (15)  OFF 
KEY (16)  OFF 
KEY (17)  OFF 

item$ ( 1 )  =  "" 
item$ ( 2 )  =  "" 

CALL  box(boxrZ,  boxcZ,  38,  2,  7,  7,  "n",  7,  1,  "y") 
GOTO  133 

RETURN 

END 


boxrZ  =  20 
boxcZ  =  21 

item$(l)  =  "Use  <Space  Bar)  to  select  the" 
item$(2)  =  "Hit  <Enter>  after  selection" 

CALL  box(boxrZ,  boxcZ,  38,  2,  11,  0,  "n",  7,  1,  "n") 
LOCATE  boxrZ  +  1,  boxcZ  +  34 
COLOR  12 
PRINT  ;  name$ 

LOCATE  boxrZ  +  1,  boxcZ  +  7 
COLOR  14 

PRINT  "< Space  Bar)" 

LOCATE  boxrZ  *  3,  boxcZ  +  7 
PRINT  "< Enter > " 

RETURN 

END 

• _ _  _ _ _ _ _ _ _ _ 


row : 
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IF  oX  =  2  THEN 

PRINT  USING  "##  ##  " ;  AX(iX,  jX);  AX(iX,  jX); 

ELSEIF  oX  =  3  THEN 

PRINT  USING  "##  ##  ##”;  AX ( iX ,  jX);  AX(iX,  jX); 

AX(iX,  jX) 

END  IF 
RETURN 
END 


IF  oX  =  3  THEN 

LOCATE  RX,  CX: 

LOCATE  RX  +  1, 
LOCATE  RX  +  2, 
LOCATE  RX  +  3, 
LOCATE  RX  +  4, 

•  I  I  I  I  •  (  •  t  t  1  I  I  f  I  I  I  • 

ELSEIF  oX  =  2  THEN 
LOCATE  RX,  CX: 

t  t  f  t  i  i  r  t  »  i  i  t  »  i  i  f  t 

LOCATE  RX  +  1, 
LOCATE  RX  +  2, 


PRINT  AX(iX,  jX) 

CX:  PRINT  " 

CX:  PRINT  AX(iX,  jX) 
CX:  PRINT  " 

CX:  PRINT  AX(iX,  jX) 


PRINT  AX(iX,  jX) 

CX:  PRINT  ’* 

CX:  PRINT  AX(iX,  jX) 


grey  column 


grey  column 


END  IF 
RETURN 
END 


rowf i rs  t : 


IF  oX  =  2  THEN 

PRINT  USING  "##  #*  AX( iX ,  1);  AX(iX,  2); 

ELSEIF  oX  =  3  THEN 

PRINT  USING  "##  ##  ##";  AX ( iX ,  1);  AX(iX,  2); 

AX(iX,  3) 

END  IF 
RETURN 
END 


coif irst : 


IF  oX  =  3  THEN 

LOCATE  RX,  CX 

tlflllfflllfllllt 

LOCATE  RX  +  1 
LOCATE  RX  ♦  2 
LOCATE  RX  +  3 


PRINT  AX ( 1 ,  jX) 

CX:  PRINT  " 

CX:  PRINT  AX(2,  jX) 
CX:  PRINT  " 


grey  column 
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f  »  I 


LOCATE  RX  +  4,  CX :  PRINT  AX(3,  jX) 

I  t  t  f  f  t  t  t  t  I  t  t  t  •  I 

ELSEIF  oX  =  2  THEN 

LOCATE  RX,  CX:  PRINT  AX(1,  jX) 

'  t  I  I  •  f  '  t  I  t  t  t  f  «  f  t  t 

LOCATE  RX  +  1,  CX:  PRINT  "  "  ’  grey  column 

LOCATE  RX  +  2,  CX:  PRINT  AX(2,  jX) 

tftfflttttt'tttlttt 

END  IF 
RETURN 
END 

I _ _ _ _ _ _ _ _ __ _ _ _ _ _ 

cescape:  '  escape  from  final  invert  screen 


COLOR  12,  0  'clear  equation  box  at  bottom 

LOCATE  23,  16  '  of  screen 

PRINT  SPC(50); 

« 


RX  =  22 
CX  =  14 


COLOR 

11, 

0 

LOCATE 

RX 

+ 

1, 

CX 

+ 

2 

PRINT 

"  (  A)ga 

in 

- 

( V)erif y 

COLOR 

14, 

0 

LOCATE 

RX 

+ 

1. 

CX 

+ 

2:  PRINT 

LOCATE 

RX 

+ 

1, 

CX 

+ 

16:  PRINT 

LOCATE 

RX 

+ 

1. 

CX 

+ 

31:  PRINT 

LOCATE 

RX 

+ 

1, 

CX 

+ 

44:  PRINT 

338 

DO 

sel2$  =  INKEY$ 

LOOP  WHILE  sel2$  =  "" 

IF  sel2$  =  "A"  OR  sel2$  =  "a" 

CALL  clr2(4 ,  1,  24,  80) 
GOSUB  determin 

ELSEIF  sel2$  =  "M"  OR  sel2$  = 
detaX  =  0 

CALL  clr2( 22 ,  1,  25,  79) 
GOTO  98 

ELSEIF  sel2$  =  "Q"  OR  sel2$  = 
GOTO  666 

ELSEIF  sel2$  =  "V"  OR  sel2$  = 


-  (M)enu  -  (Q)uit"; 
(A)"; 

"(v)"; 

"(M)"; 

"(Q)”: 

THEN 

"m”  THEN 

'initialize  determinant  of  A 
’  determinant  menu 
"q"  THEN 

"v"  THEN 
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FOR  it  =  1  TO  3 
FOR  jX  =  1  TO  3 

NEXT  jZ 
NEXT  it 

GOSUB  MULTIPLY 

END  IF 

GOTO  338 

RETURN 

END 

I  _  _  _  _ _ _  _  _  _  _ 


nescape : 


COLOR  12,  0  'clear  equation  box  at  bottom 

LOCATE  23,  12  '  of  screen 

PRINT  SPC(56); 

I 


RX  =  22 

CX  =  12 

COLOR  11,  0 

LOCATE  RX  +  1,  CX  +  2 

PRINT  "(A)gain  -  (C)ontinue  -  (M)enu  -  (Q)uit"; 
COLOR  14,  0 


LOCATE  RX  +  1, 

CX  +  2: 

PRINT  " 

(a)"; 

LOCATE  RX  +  1, 

CX  ♦  16: 

PRINT 

"(c)"; 

LOCATE  RX  +  1, 

CX  ♦  33: 

PRINT 

"(M)"; 

LOCATE  RX  +  1,  CX  +  46: 
339 

DO 

sel2$  =  INKEY$ 

LOOP  WHILE  se 12$  =  "" 

PRINT 

"(Q)"; 

IF  se!2$  =  "A” 

OR  sel2$ 

=  "  a  " 

THEN 

CALL  c 1 r 2 ( 4 ,  1,  24,  80) 

GOSUB  de terrain 

ELSEIF  sel2$  = 
detaX  =  0 

"M"  OR 

se 12$  = 

"m"  THEN 

'initialize  determinant 

CALL  clr2( 22 
GOTO  98 

.  1,  25, 

79) 

determinant  menu 

ELSEIF  sel2$  = 
GOTO  666 

"Q"  OR 

sel2$  = 

"q"  THEN 

ELSEIF  se!2$  = 

"C"  OR 

sel2$  = 

"c"  THEN 
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"1"  THEN 


IP  sel$  = 
sel2$  =  "" 
sel$  =  "2" 
oX  =  3 
GOSUB  determin 
ELSEIF  sel$  =  "2"  THEN 
$  =  3 

GOTO  205 

END  IF 
END  IF 

GOTO  339 

RETURN 

END 

t _ 


escape : 


COLOR  11,  0  'clear  equation  box  at  bottom 

LOCATE  23,  21  '  of  screen 

PRINT  SPC(46); 

» 


RX  =  22 
CX  =  22 


COLOR 

11,  0 

LOCATE 

RX  + 

1. 

CX 

+ 

PRINT 

" ( A ) ga 

in 

- 

COLOR 

14,  0 

LOCATE 

RX  + 

1, 

CX 

+ 

LOCATE 

RX  + 

1. 

CX 

+ 

LOCATE 
333  DO 

RX  + 

1, 

CX 

♦ 

se!2$ 

=  INKEY$ 

LOOP  WHILE  se 1 2$  = 

2 

(M)enu  -  (Q)uit" ; 

2:  PRINT  "(A)”; 

16:  PRINT  "(m)"; 

29:  PRINT  "(Q)"; 


'If  (A)gain  is  chosen,  the  GOTO  statement  must  be  correct 


IF  se 12$  =  "A"  OR  sel2$  =  "a" 


IF  SEL1$  =  "1"  GOTO  200 
IF  SEL1$  =  "2"  GOTO  200 
IF  SEL1$  =  "3"  GOTO  202 
IF  SEL1$  =  "4"  GOTO  202 
IF  SEL1$  =  ”5"  GOTO  33 
IF  sel$  =  "3"  GOTO  205 


THEN 


'  GOTO  addition 
GOTO  addition 

'  GOTO  scalar  multiplication 
'  GOTO  scalar  division 
'  GOTO  addition 
'  GOTO  cofactor 
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ELSEIF  sel2$  =  "M"  OR  sel2$  =  "m"  THEN 

IF  sel$  =  "3"  GOTO  98  '  determinant 

menu 

GOTO  777 

ELSEIF  sel2$  =  "Q"  OR  sel2$  =  "q"  THEN 
GOTO  666 

END  IF 

GOTO  333 

RETURN 

END 

t  _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _  _ 


THIS  IS  THE  END 


6666 

666 

R1X  =  1 
C1X  =  1 
R2X  =  24 
C2X  =  80 
klrX  =  0 
LOCATE  R1X ,  C1X 

123 

COLOR  klrX 

FOR  iiX  =  C1X  TO  C2X  '  it  is  a  column  variable 

LOCATE  R1X ,  iiX 
PRINT  ;  "|" ; 

dtX  =  10  '  delay  time 

FOR  D1X  =  1  TO  dtX  'delay 

NEXT  D1X  ’loop 

NEXT  iiX 
iiX  =  iiX  -  1 

FOR  jX  =  R1X  TO  R2X 
LOCATE  jX,  iiX 
PRINT  ;  "I"; 

FOR  D1X  =  1  TO  dtX 
NEXT  D1X 
NEXT  jX 

FOR  KX  =  C2X  TO  C1X  STEP  -1  'kX  is  a  column  variable 
LOCATE  jX,  KX 
PRINT  ; 


jX  is  a  row  variable 

'delay 
'  loop 
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FOR  D1X  =  1  TO  dtX  ’delay 

NEXT  D1X  'loop 

NEXT  KX 
KX  =  KX  +  1 

FOR  IX  =  R2X  TO  R1X  STEP  -1  ’IX  is  a  row  variable 

LOCATE  IX,  KX 
PRINT  ;  "j"; 

FOR  D1X  =  1  TO  dtX  'delay 

NEXT  D1X  'loop 

NEXT  IX 

R1X  =  R1X  +  1 

C1X  =  C1X  +  1 

R2X  =  R2X  -  1 

C2X  =  C2X  -  1 

IF  R1X  >  13  GOTO  234 

GOTO  123 
234 

COLOR  7,  0 
LOCATE  1,  1 

PRINT  "Program  terminated  by  user" 

END 


SUB  BLINK  (AX(),  BX( ) ,  MCX ,  RCX ,  ROWAX ,  COLBX,  ACBRX ) 


FOR 

IX  =  1 

TO  COLBX 

’  B  COLUMNS 

BCX 

=  BC1X 

*  IX  +  TLCBX  -  4 

’  CALCULATE  LOCATIONS 

FOR 

iX  =  1 

TO  ROWAX 

’  A  ROWS 

ARX 

=  BR1X 

*  iX  +  TLRAX  -  1 

'  FOR  ARRAYS 

FOR 

jX  =  i 

TO  ACBRX 

'  A  COLUMNS  AND  B  ROWS 

ACX 

=  BC IX 

*  jX  +  TLCAX  -  4 

• 

BRX 

=  BR1X 

*  jX  +  TLRBX  -  1 

BLNKCX  =  14  ’  BLINK  COLOR 

COLOR  14,  7  '  EQUATION  COLOR 

flagX  =  1 

'***  PROGRAMMER  ****************** 

MEX  =  16  '  MEX  moves  equation  on  line  24  left  or  right 

' ********************************* 

ECX  =  jX  *  MEX 
LOCATE  24,  ECX 

•  »  I  »  I  I  * 

PRINT  USING  "(##  x  0#)";  AX ( i X ,  jX);  BX(jX,  IX);  ' 

PRINT 
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IF  jX  <  ACBRX  THEN 

LOCATE  24,  ECX  +  12 

PRINT 

ELSE 

LOCATE  24,  ECX  +  12 
PRINT  "=  ; 

END  IF 

I  I  I  *  I  I  l  *  I  I  I 

COLOR  15,  RCX 
LOCATE  ARX ,  BCX 
PRINT  "  H" 

COLOR  BLNKCX  +  16,  MCI 

10  LOCATE  ARX,  ACX 
PRINT  AX(iX,  jX) 

LOCATE  BRX,  BCX 
PRINT  BX(jX,  IX) 

IF  flagX  =  0  GOTO  20 
DO 

LOOP  WHILE  INKEY$  =  " " 

COLOR  15,  MCX 
flagX  =  0 
GOTO  10 

20 

COLOR  15,  RCX 

TX  =  TX  +  AX(iX,  jX)  *  BX( jX , 
NEXT  jX 

LOCATE  ARX ,  BCX 
PRINT  TX 
COLOR  15,  RCX 
TX  =  0 

LOCATE  24,  15 
COLOR  15,  7 
PRINT  SPC(60) ; 

COLOR  15,  RCX 
NEXT  iX 
NEXT  IX 
END  SUB 

SUB  BLINK2  (AX(),  E!(),  MCX,  RCX 

FOR  IX  =  1  TO  COLBX 

BCX  =  BC IX  *  IX  +  TLCBX  -  4 

FOR  iX  =  1  TO  ROWAX 

ARX  =  BR1X  *  iX  +  TLRAX  -  1 

FOR  jX  =  1  TO  ACBRX 

ACX  =  BC1X  *  jX  ♦  TLCAX  -  4 

BRX  =  BR1X  *  jX  +  TLRBX  -  1 

BLNKCX  =  14 
COLOR  14,  7 


'EQUATION 
'  ON 
'  LINE 
’  24 


'  PRINT 
'  RESULT  BOX 


BLINK  ARRAY  ELEMENTS 
TO  BE  MULTIPLIED 


'TURN  OFF  BLINK 


'  COLOR  OF  RESULT  BOX 


'PRINT  TOTAL 


CLEAR 
LINE  24 


ROWAX,  COLBX,  ACBRX) 

'  B  COLUMNS 

’  CALCULATE  LOCATIONS 

'  A  ROWS 

'  FOR  ARRAYS 

'  A  COLUMNS  AND  B  ROWS 
• 

•  I  •  f  f  I  t 


’  BLINK  COLOR 
’  EQUATION  COLOR 
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flagX  =  1 

'***  PROGRAMMER  ****************** 

I 

MEX  =  16  '  MEX  changes  width  of  equation 

I 

•  ********************************* 


ECX  =  jX  *  MEX 
LOCATE  24,  ECX 

I  »  f  »  t  (  »  »  I  I  * 

PRINT  USING  "(##  x  ##.##)";  AX ( jX ,  IX);  E!(iX,  jX); 
PRINT 

IF  jX  <  ACBRX  THEN 
EQUATION 


LOCATE  24,  ECX  + 

14 

'  ON 

PRINT 

'  LINE 

ELSE 

'  24 

LOCATE  24,  ECX  + 

14 

f 

PRINT  "=  H"; 

l 

END  IF 

«  «  I  f  •  •  •  •  •  t  I 

COLOR  15,  RCX 
LOCATE  ARX,  BCX 
PRINT  "  ■" 

COLOR  BLNKCX  ♦  16,  MCX 

910  LOCATE  BRX,  BCX 

PRINT  AX ( jX ,  IX)  '  BLINK  ARRAY  ELEMENTS 

LOCATE  ARX,  ACX  ’  TO  BE  MULTIPLIED 

PRINT  USING  "##.##";  E ! ( i X ,  jX) 

I  »  I  •  I  >»»»•»  »  t  •  •  •  •  •  I  I  »  •  I  It  •  •  •  •*••»!•«»  I  I  «  f  »  I  t  •  f  •  •  •  •  •  f  •  I  Ilf  •  •  » 

IF  flagX  =  0  GOTO  920 
DO 

LOOP  WHILE  INKEY$  =  "" 

COLOR  15,  MCX  ‘TURN  OFF  BLINK 

flagX  =  0 
GOTO  910 

920 

COLOR  15,  RCX  '  COLOR  OF  RESULT  BOX 

T!  =  T!  ♦  AX ( iX ,  jX)  *  E!(jX,  IX) 


’  PRINT 
'  RESULT  BOX 


NEXT  jX 

LOCATE  ARX,  BCX 
PRINT  CINT ( T ! ) 
COLOR  15,  RCX 
T!  =  0 

LOCATE  24,  15 
COLOR  15,  7 
PRINT  SPC(60); 
COLOR  15,  RCX 


'PRINT  TOTAL 

'  CLEAR 

I 

'  LINE  24 
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NEXT  iX 


NEXT  IX 


t 


I 


END  SUB 

SUB  box  (TLRX,  TLCX,  WIDEX,  LLX,  FGCX,  BGCX,  bx$,  sfcX 
styleX,  syn$) 


’  TLRX  -  Position  of  Top  Left  Row 
'  tlcX  -  Position  of  Top  Left  Column 
'  wideX  -  Width  of  longest  line  in  list 
11  X  -  number  of  items  in  list 
fgcX  -  Foreground  color 
bgcX  -  Background  color 
bx$  -  "n"  for  displaying  list 
sfcX  -  shadow  foreground  color 
styleX  -  border  style 
syn$  -  show  shadow?  (y)es  or  (n)o 

»  I  I  I  I  »  I  •  »  •  »  I  I  •  I  *  «  t  •  »  I  I  I  I  I  I  »  t  I  »  t  ?  •  I  f  »  *  t  *  »  •  I  1  •  »  I 

WIDEX  =  WIDEX  +  2 

STLCX  =  TLCX  -  1:  STLRX  =  TLRX  +  1:  SWIDEX  =  WIDEX  ♦  4 
TALLX  =  LLX  *  2  -  1 


These  are  the  BOX  styles  available 


IF  styleX  =  1  THEN 

tl$  =  "  if":  tr$  =  "u  bl$  =  "  br$  =  :  LSS 

||":  rs$  =  "||  " 

LIN$  =  STRING$(WIDEX,  "-" ) 

ELSEIP  styleX  =  2  THEN 

TL$  =  "  r":  TR$  =  "-I  ":  BL$  =  "  L" :  BR$  =  "J  ":  LS$ 

I":  rs$  =  A|  " 

LIN$  =  STRINGS (WIDEX,  "  ") 

ELS E I F  styleX  =  3  THEN 

TL$  =  "  ":  TR$  =  "  ":  BL$  =  "  ":  BR$  =  "  ":  LS$ 

|"  RS$  =  "|  " 

LIN$  =  STRINGS (WIDEX ,  "  ") 

END  IF 


TOPLINES  -  TL$  +  LIN$  ♦  TR$ 
B0TL1NES  =  BLS  +  LIN$  +  BR$ 

IF  syn$  =  "y"  OR  syn$  =  "Y"  THEN 


COLOR  sfcX,  sfcX 

FOR  iX  =  STLRX  TO  STLRX  +  TALLX  ♦ 
LOCATE  iX,  STLCX 
PRINT  ;  SPC(l); 

NEXT  iX 

PRINT  ;  SPC( SWIDEX  -  1); 


shadow 

fitiittttiiit 

I 
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END  IF 


COLOR  FGCZ ,  BGCZ 
LOCATE  TLRZ ,  TLCZ 
PRINT  ;  TOPLINE$; 

FOR  iZ  =  TLRZ  +  1  TO  TLRZ  +  TALLZ 

LOCATE  iZ,  TLCZ 

PRINT  ;  LS$;  SPC(WIDEZ);  RS$; 

NEXT  iZ 

LOCATE  iZ,  TLCZ 
PRINT  ;  BOTLINE$; 

IF  bx$  =  "y"  OR  bx$  =  "Y"  GOTO  9999 

jZ  =  TLRZ  +  1 

KZ  =  TLCZ  +  3 

FOR  iZ  =  1  TO  LLZ 

LOCATE  jZ,  KZ 

PRINT  ;  item$(iZ); 

jZ  =  jZ  +  2 

NEXT  iZ 

9999 

END  SUB 


box 


SUB  clr 1  (R1Z ,  C1Z,  R2Z ,  C2Z ) 

COLOR  7,  7 

FOR  nZ  =  1  TO  6 

LOCATE  R1Z  +  nZ  -  2,  C1Z 

PRINT  SPC ( 80  -  C1Z) ; 

NEXT  nZ 


»  •  I  t  I  I  I  t  I  *  t  I  I  I  »  I  t  I 

blanks  part  of 
screen  in  the 
color  grey 


END  SUB 


SUB  clr2  (R1Z,  C1Z,  R2Z ,  C2Z) 

COLOR  7,  7 

FOR  nZ  =  R1Z  TO  R2Z 

LOCATE  nZ,  C1Z 

PRINT  SPC ( C2Z  -  C1Z)  ; 

NEXT  nZ 


fttffllftlltlfffftt 

'  blanks  part  of 
screen  in  the 
'  color  grey 


END  SUB 

SUB  determ2  (iZ,  jZ,  AZ(),  name$,  solZ) 

IF  name$  =  "ROW"  THEN 
CZ  =  jZ  *  24  +  10 
RZ  =  12 

ELSEIF  name$  =  "COLUMN"  THEN 
CZ  =  iZ  *  24  +  10 
RZ  =  12 

ELSEIF  name$  =  "cofactor"  THEN 
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CX  =  30 
RX  =  16 
END  IF 

COLOR  15,  7 

LOCATE  RX  +  1,  CX  -  3 

PRINT  "x" 

IF  name$  <>  "cofactor"  THEN 
CALL  clrl (RX ,  CX  +  11,  1,  1) 

END  IF 

COLOR  15,  7 

IF  iX  <=  2  AND  jX  <=  2  THEN 
LOCATE  RX  +  1,  CX  +  7 
PRINT  "+" 

END  IF 

IF  name$  =  "ROW"  AND  jX  =  2  OR  name$  =  "COLUMN"  AND  iX  =  2 
THEN 

LOCATE  RX  +  1,  CX  +  7 
PRINT  "=" 

LOCATE  RX  +  1,  CX  +  12 

ansX  =  AX ( 1 ,  1)  *  AX( 2 ,  2)  -  AX(1,  2)  *  AX(2,  1) 
answer 
COLOR  31,  0 
PRINT  ansX 

END  IF 

COLOR  0,  7 

signX  =  (-1)  *  (iX  +  jX) 

IF  signX  =  1  THEN  sign$  =  "(  1)" 

IF  signX  =  -1  THEN  sign$  =  "(-1)" 

LOCATE  RX  +  1,  CX  -  12  'print  sign  next  to  minor 

PRINT  s ign$ 

COLOR  14,  4 

LOCATE  RX  +  1 ,  CX  -  8  'print  intersection  next  to 

minor 

PRINT  AX(iX,  jX) 

COLOR  15,  1 

IF  iX  =  1  AND  jX  =  1  THEN 
* 


LOCATE  RX  +  1,  CX 

PRINT  AX(iX  +1,  jX  +  1) 

END  IF 
♦ 
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IF  iX 


1  AND  jX  =  2  THEN 


LOCATE  RX  +  1,  CX 
PRINT  AX(iX  +  1,  jX  -  1) 
END  IF 

I 


IF  iX  =  2  AND  jX  =  1  THEN 


LOCATE  RX  +  1,  CX 
PRINT  AX(iX  -1,  jX  +  1) 
END  IF 

t 


IF  iX  =  2  AND  jX  =  2  THEN 
( 


LOCATE  RX  +  1,  CX 
PRINT  AX ( iX  -  1,  jX  -  1) 
END  IF 
END  SUB 


SUB  iandj  (iX,  jX,  hfcX,  hbcX 
COLOR  ijfcX,  ijbcX 
LOCATE  ijrX  +  1,  ijcX  +  4 
PRINT  "i  =  iX 
LOCATE  ijrX  +  3,  ijcX  +  4 
PRINT  "j  =  jX 
COLOR  hfcX,  hbcX 


ijrX,  ijcX,  ijfcX,  ijbcX) 

ttttflfllfllttlttttt 

'  i  and  j  values 
'  i  and  j  values 

tlttllttttVIltttltt 


END  SUB 

SUB  minor  (iX,  jX,  AX(),  name$,  solX,  tsolX) 


IF  name$  =  "ROW”  THEN 
CX  =  jX  *  27  -  12 
ELSEIF  name$  =  "COLUMN"  THEN 
CX  =  iX  *  27  -  12 
ELSEIF  name$  =  "cofactor"  THEN 
CX  =  37 
END  IF 
RX  =  16 

CALL  box ( RX  -  1 ,  CX  -  2,  7,  2,  15,  1,  "y",  0,  3,  "y") 
'print  minor  box 

COLOR  15,  7 

LOCATE  RX  +  1,  CX  -  5 

PRINT  "x" 


IP  name$  <>  "cofactor"  THEN 
CALL  clr2(7,  CX  +  11,  20,  80) 
results  if  i  or  j  =  1 
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'clear  all  minors  and 


END  IF 


COLOR  15,  7 

IF  iX  <  3  AND  jX  <  3  THEN 

LOCATE  RX  +  1 ,  CX  +  12  'print  +  or  =  sign  next  to 

minor 

IF  name$  =  "cofactor"  THEN 
PRINT  "  =" 

ELSE 

PRINT  "  +  " 

END  IF 

END  IF 

'The  next  2  IF  statements  ensure  correct  placement 
'of  "+"  next  to  minor  boxes 

IF  name$  =  "ROW"  AND  iX  =  3  AND  jX  <  3  THEN 

I 

LOCATE  RX  +  1,  CX  +  12  'print  +  sign  next  to  minor 

PRINT  "+" 

END  IF 

IF  name$  =  "COLUMN"  AND  jX  =  3  AND  iX  <  3  THEN 

LOCATE  RX  +  1,  CX  +  12  'print  +  sign  next  to  minor 

PRINT  "+" 

END  IF 
» 


COLOR  0,  7 

signX  =  (-1)  "  (iX  +  jX) 

IF  signX  =  1  THEN  sign$  =  "(  1)" 

IF  signX  =  -1  THEN  sign$  =  "(-1)" 

LOCATE  RX  +  1 ,  CX  -  13  'print  sign  next  to  minor 

PRINT  sign$ 

IF  name$  <>  "cofactor"  THEN 
COLOR  14,  4 

LOCATE  RX  +  1 ,  CX  -  9  'print  intersection  next  to 

minor 

AX(iX,  jX)  =  AX(iX,  jX) 

PRINT  AX ( iX ,  jX) 

END  IF 

COLOR  15,  1 


IF  iX  =  1  AND  jX  =  1  THEN 


dl IX  =  AX(iX  +  1,  jX  +  1) 
d22X  =  AX( iX  +2,  jX  +  2) 
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d2 1%  =  AX(iX  +  2,  3%  *  1) 
612%  =  AX(iX  +1,  jX  +  2) 


ELSEIF 

1 

iX  =  1 

AND 

jX 

= 

2  THEN 

dllX  = 

AX( iX  + 

1, 

jX 

- 

1) 

d22X  = 

AX( iX  + 

2, 

jX 

+ 

1) 

d21X  = 

AX(iX  + 

2, 

jX 

- 

1) 

d  12X  = 

1 

AX(iX  + 

1, 

jX 

+ 

1) 

ELSEIF 

1 

iX  =  1 

AND 

jx 

- 

3  THEN 

dllX  = 

AX(iX  + 

1, 

jx 

- 

2) 

dl2X  = 

AX ( iX  + 

1, 

jx 

- 

1) 

d2  IX  = 

AX( iX  + 

2, 

jx 

- 

2) 

d22X  = 

1 

AX(iX  + 

2, 

jx 

1) 

ELSEIF 

iX  =  2 

AND 

jx 

= 

1  THEN 

dllX  = 

AX ( iX  - 

1, 

jx 

+ 

1) 

dl2X  = 

AX(iX  - 

1, 

jx 

+ 

2) 

d21X  = 

AX(iX  + 

1, 

jx 

+ 

1) 

d22X  = 

• 

AX(iX  + 

1, 

jx 

+ 

2) 

ELSEIF 

t 

iX  =  2 

AND 

jx 

= 

2  THEN 

dllX  = 

AX ( iX  - 

1. 

jx 

- 

1) 

dl2X  = 

AX(iX  - 

1. 

jx 

+ 

1) 

d2  IX  = 

AX( iX  + 

1, 

j* 

- 

1) 

d22X  = 

1 

AX(iX  + 

1, 

jx 

+ 

1) 

ELSEIF 

t 

iX  =  2 

AND 

jx 

= 

3  THEN 

dllX  = 

AX( iX  - 

1, 

jx 

- 

2) 

dl2X  = 

AX(iX  - 

1, 

jx 

- 

1) 

d21X  = 

AX( iX  + 

1, 

jx 

- 

2) 

d22X  = 

f 

AX(iX  + 

1. 

jx 

1) 

ELSBIF 

t 

iX  =  3 

AND 

jx 

= 

1  THEN 

dllX  = 

AX( i X  - 

2. 

jx 

+ 

1) 

d  12X  = 

AX(iX  - 

2, 

jx 

+ 

2) 

d2  IX  = 

AX(iX  - 

1, 

jx 

+ 

1) 

d22X  = 

AX(iX  - 

1, 

jx 

+ 

2) 
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ELSEIF  iZ  =  3  AND  jZ  =  2  THEN 

f 

dll*  =  AZ(iX  -  2,  jX  -  1) 

dl2X  =  AX( iZ  -2,  jZ  +  1) 

d21X  =  AZ(iX  -  1,  jZ  -  1) 

d22Z  =  AX(iX  -  1,  jZ  +  1) 


ELSEIF  iZ  =  3  AND  jZ  =  3  THEN 

dllX  =  AZ( iZ  -  2,  jZ  -  2) 

dl2X  =  AZ(iZ  -  2,  jZ  -  1) 

d21X  =  AZ(iZ  -  1,  jZ  -  2) 

d22X  =  AZ(iZ  -  1,  jZ  -  1) 

END  IF 

LOCATE  RZ,  CZ 
PRINT  dllX 
LOCATE  RZ,  CZ  +  6 
PRINT  dl2X 
LOCATE  RZ  +  2,  CZ 
PRINT  d21X 

LOCATE  RZ  +  2,  CZ  +  6 
PRINT  d22X 

»  I  I  »  »  »  t  »  t  »  1  f  t  »  I  t  » 

ansZ  =  dllZ  *  d22Z  -  d21Z  *  dI2Z  '1.  determinate  of 

cofactor 

bnsZ  =  (-1)  *  (iZ  +  jZ)  *  AZ(iZ,  jZ)  '2.  cofactor  element 
solZ  =  ansZ  *  bnsZ  ’3.  solution 

Vltlftftttttfttlltft 

tsolZ  =  tsolZ  +  solZ 
LOCATE  RX  ♦  4,  CZ  +  2 


COLOR  7,  0  'Print  solution  to  2x2 

' determinent 

PRINT  ansZ  'in  the  lower  shadow 

COLOR  15,  1 


'  ♦++  +  +  ♦  ++++  +++  +  +  ♦«■  ++++++  +++  +  +  +  +++♦  +  +++  +++  +  +++  ++++  ++++♦+  ++++ 
IF  name$  =  "cofactor"  THEN 

i  i  t  i  i  i  i  i  i  i  i  i  t  t  i  t  i  i  t  i  m  r 

ansZ  =  dllX  *  d22X  -  d21X  *  dl2X  '  calculate  and  print 

bnsZ  =  (-1)  *  (iZ  +  jZ)  ’*  AX(iX,  jZ) 

cofactor  element 

8 o 1 Z  =  ansZ  *  bnsZ  '  solution 

LOCATE  RZ  +  1,  54 
COLOR  7,  7 
PRINT  " 
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COLOR  15,  4 
LOCATE  RX  +  1,  54 


'color  of  box 


PRINT  'print  solution  bo* 

•tftVtlltttttltltll 

END  IF 

'+♦++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
IF  name$  =  "RON"  THEN  '  position  the 

' intermediate 

CX  =  jX  *  13  +  8 

ELSEIF  name$  =  "COLUMN"  THEN  ’  solution  in  relation 

to 

CX  =  iZ  *  13  +  8 

ELSEIF  name$  =  "cofactor"  THEN  GOTO  331  '  the  MATRIX 

CX  =  37 
END  IF 


COLOR  15,  7 
LOCATE  RX  -  7,  25 
PRINT  "=" 

IF  name$  =  "ROW"  AND  jX  <  3  THEN 
COLOR  0,  7 

LOCATE  RX  -  7,  CX  +  10 
'  print  intermediate  solution 

PRINT  ;  soix;  :  color  15,  7:  print  ;  spc(4);  "+" 

ELSEIF  name$  =  "COLUMN"  AND  iX  <  3  THEN 
COLOR  0,  7 

LOCATE  RX  -  7,  CX  +  10 

print  intermediate  solution 
PRINT  ;  soix;  :  COLOR  15,  7:  PRINT  ;  SPC(4);  "+" 

ELSE 

COLOR  0,  7 

LOCATE  RX  -  7,  CX  ♦  10 

PRINT  ;  soix;  :  color  15,  7:  PRINT  ;  spc(4) ;  spc(4); 

COLOR  31,  0 
PRINT  tsolX 

IF  tsolX  =  0  THEN 
COLOR  20,  7 

LOCATE  RX  -  5,  CX  ♦  22 
PRINT  "Oh,  Oh!” 

LOCATE  RX  -  3,  CX  +  18 
COLOR  0,  7 

PRINT  "Why  is  this  0?" 
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END  IF 


tsolZ  =  0 


END  IF 

'**************-*★#***************** 

331 


END  SUB 
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Appendix  C.:  VVAM  Protocol  Handout 


SUGGESTIONS  FOR  COMPLETING  THE  HANSARD 
INTERACTIVE  MATRIX  ALGEBRA  EXERCISE 


First  and  Foremost: 

This  exercise  is  DESIGNED  TO  FACILITATE  SHARING  OF 
INSIGHTS  between  YOU  and  YOUR  INSTRUCTOR. 

IT  IS  NOT  DESIGNED  TO  BE  USED  as  a  stand  alone  Computer 
Assisted  Instruction  (CAI)  package. 

He  expect  a  HUMAN  INSTRUCTOR  to  be  at  the  ready  to 
answer  any  and  all  questions  YOU,  as  a  STUDENT  of  Matrix 
Algebra,  may  need  answered  while  using  the  package.  He 
also  expect  the  INSTRUCTOR  to  help  YOU,  as  a  student,  to 
EFFECTIVELY  USE  the  package, 

HE' RE  SURE  MEANINGFUL  LEARNING  IS  INSPIRED  BY  A 
CONSTRUCTIVE  PARTNERSHIP  OF  STUDENT  AND  TEACHER! 

If  we  are  right,  let  us  know. 

If  not,  well,  we're  ready  to  hear  that  too! 

He  certainly  hope  the  EXERCISES  offered  by  the  program 
motivate  an  INTENSE  DIALOGUE  about  the  SUBJECT  of  MATRIX 
ALGEBRA  BETHEEN  YOU  AND  YOUR  TEACHER  and  give  YOU 
personally,  a  chance  to  CONCRETELY  EXPERIENCE  what 
'working  with  matrices'  really  involves. 

OUR  MOTTO  IS:  It's  the  PROCESS, 

NOT  the  PRODUCT! 

He  suggest,  for  each  MATRIX  ACTIVITY  (addition,  subtraction, 
multiplication,  inversion,  etc...),  that  you  try  to  follow 
the  PROTOCOL  we  list  below.  Please  treat  our  PROTOCOL  as  a 
HEURISTIC,  and  not  as  an  ALGORITHM.  Vary  DETAILS  OF  EACH 
STEP  IN  THE  PROTOCOL,  as  YOUR  intuition  and  experience 
suggest . 

PLEASE  feel  free  to  SHARE  what  you  learn  and  discover  with 
us.  Believe  me,  we  are  very  VERY  INTERESTED. 


GOOD  LUCK! 
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A  SUGGESTED  PROTOCOL  FOR  PARTICIPANTS  IN  THE 
INTERACTIVE  LEARNING  OF  APPLIED  LINEAR  ALGEBRA 


Caution:  Don't  rush.  Take  your  time.  Complete  every 

suggested  step  of  this  protocol  and  OBJECTIFY 
EVERYTHING...  on  paper,  on  a  blackboard.  Don't 
assume  anything  without  RECORDING  THAT  FACT  on  a 
medium  others  can  SEE!  If  you  'DO  KNOW  IT'  then 
WRITE  IT  DOWN  so  others  can  CONFIRM  you  do... 
EXPLICITLY  and  COMPLETELY! 

1)  Exercise  the  PROGRAM  for  a  SPECIFIC  TECHNIQUE,  starting 
with  EXERCISE  1  -  Matrix  Addition. 

ASK  THE  PROGRAM  TO  PERFORM  THE  MATRIX  OPERATION 
REQUESTED!  Watch  it  operate,  CAREFULLY!  Lots  of 
colorful  images  have  been  created  to  help  you  FOLLOW  THE 
ACTION.  Do  just  that  -  carefully. 

WHY?  Because,  as  of  Step  2,  we  will  be  asking  you  to 
VERBALIZE  WHAT  YOU  HAVE  SEEN  -  every  single  thing.  So 
OBSERVE  and  RECORD  what  you  SEE  mentally,  with  GREAT 
CARE! 

Carry  out  THE  SPECIFIC  MATRIX  OPERATION  and  vary  the  size  of 
the  matrices.  Practice  all  you  want  to.  RUN  the  program 
for  a  particular  operation  as  many  times  as  you  wish. 
OBSERVE,  RECORD,  FOLLOW  EVERY  STEP...  EVERY  SINGLE  STEP. 

Take  note  of  the  numbers  and  colors  and  items  before  your 
eyes.  Everything  is  significant  -  EVERYTHING! 

Don’t  be  discouraged,  or  frustrated,  IF  YOU  HAVE  TO  START 
AGAIN.  Go  right  ahead...  as  many  times  as  you  please. 

There  is  absolutely  no  penalty  for  starting  over.  As  a 
matter  of  fact,  it  has  been  our  experience  with  this 
package,  that  STUDENTS  LEARN  A  GREAT  DEAL  IF  THEY  ARE 
WILLING  TO  TAKE  RISKS,  and  MAKE  MISTAKES.  Just  try  not  make 
the  SAME  MISTAKE  twice.  If  you  do...  so,  BIG  DEAL.  That 
happens .  Enjoy . 
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2)  VERBALIZE,  in  STRAIGHT  FORWARD  ENGLISH,  EXACTLY  WHAT  YOU 
OBSERVE  HAPPENING. 

Ask  YOUR  TFACHER  TO  LISTEN  to  your  description  with  HIS/HER 
EYES  CLOSED  (and  no  cheating!!!) 

Be  sure  YOUR  TEACHER 
can  follow  every  single  step, 
and  we  mean  —  EVERY  SINGLE  STEP! 

Work  HARD  at  DESCRIBING  THE  OPERATION,  with  PRECISION  and 
without  leaving  out  anything!  VERBALIZE  every  move  and 
continue  to  do  so  until  you  ARE  ABSOLUTELY  SURE  YOUR  TEACHER 
understands,  with  EYES  CLOSED,  BVERY  SINGLE  THING  YOU  HAVE 
SAID  -  in  PRECISELY  THE  ORDER  YOU  SAID  IT.  We  caution  you: 
Take  nothing  for  granted!  And  DON'T  HURRY.  Take  the  TIME 
to  DO  IT  RIGHT  -  no  matter  how  much  time  that  may  take. 

Make  time  work  for  you.  That  takes  PRACTICE!  Sometimes  a 
little,  sometimes  a  lot.  Take  whatever  time  necessary! 

3)  Using  a  blackboard  or  piece  of  paper,  develop  a  RIGOROUS 
ALGORITHM  for  what  you  have  VERBALIZED  in  Step  2.  Use  your 
own  PSEUDO-CODE  [a  programming  like  language  that  allows  you 
to  specify  INPUT/OUTPUT,  a  SEQUENCE  of  instructions, 
BRANCHING  (UNCONDITIONAL  and  CONDITIONAL)  and  ITERATION 
(LOOPING  through  a  given  set  of  instructions  more  than 

once )  ]  . 

WRITE  DOWN  -  I  SAID  WRITE  DOWN!!! 

ON  THE  BLACKBOARD  OR  PIECE  OF  PAPER,  WHERE  IT  CAN  BE  SEEN 
BY  OTHERS ! ! ! ! ! 

a  COMPLETE  ALGORITHM  for  the  OPERATION  UNDER  STUDY. 

Make  sure  -  BY  ACTIVE  CHECKING  AND  EXECUTION  OF  YOUR 
ALGORITHM  -  THAT  IT  WORKS  -  EVERY  TIME  -  FOR  ALL  SITUATIONS 
covered  by  the  HANSARD  SYSTEM  -  AT  LEAST.  Ideally,  it 
should  work  for  ANY  SET  OF  OF  MATRICES  -  GIVEN  whatever 
ASSUMPTIONS  you  have  specified  in  your  ALGORITHMIC 
SPECIFICATION. 

USE  CONCEPT  MAPS  and  the  V-HEURISTIC  to  your  advantage  when 
constructing  your  algorithm.  Be  sure  to  clearly  AND 
COMPLETELY  specify: 

THE  ALGORITHM  and  ALL  DATA  STRUCTURES  required  to  carry  out 
the  INTENDED  OPERATION. 

Use  the  images  produced  by  the  HANSARD  system  to  stimulate 
ideas  about  the  algorithm  you  need  and  the  data  structures 
with  which  the  algorithm  will  work. 
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4)  Once  you 


1  -  are  able  to  verbalize  what  operations  are  required 
to  perform  the  matrix  operation  at  hand, 

and,  2  -  you  have  a  rigorous  and  BUG  FREE  algorithm  to 

direct  a  3rd  party  to  perform  the  matrix  operation 
GIVEN  some  specific  matrices, 

THEN: 

Develop  a  MATHEMATICALLY  RIGOROUS  MODEL  (with  appropriate 
formulae)  that  specify  MATHEMATICALLY  how  to  perform  the 
OPERATION  under  study. 

This  will  typically  involve  using  the  SUMMATION  OPERATOR  of 
ALGEBRA  (SIGMA)  and  a  set  of  VARIABLES  -  including  the  INDEX 
of  SUMMATION. 

If  you  know  MathCAD...  you  are  welcome  to  construct  this 
model  in  MathCADic  FORM.  Otherwise,  specify  the 
Mathematical  formulae  in  ALGEBRAIC  FORM. 

Try  your  Mathematical  Model  out. 

Make  sure  -  IT  WORKS  IN  THEORY  AND  PRACTICE! 

When  you  have  done  ALL  that...  you  can  give  yourself  a  big 
pat  on  the  back. 

You  are  THINKING  LIKE  A  MATHEMATICIAN! 

We  ESTIMATE  a  total  of  6-8  hours  will  be  required  to  carry 
out  this  PROTOCOL  on  ALL  EXERCISES  OFFERED  BY  the  HANSARD 
SYSTEM.  We  also  expect  WIDE  VARIATION  around  this  MEAN 
ESTIMATE  since  the  BACKGROUND  and  LEARNING  SKILLS  of 
students  and  teachers  will  vary  widely.  Both  Stone  and  I 
will  be  delighted  to  hear  your  SUGGESTIONS  FOR  IMPROVEMENT 

of  the  Displays, 
of  the  Program  Logic, 
of  the  Protocol, 

of  ANYTHING  ELSE  you  can  think  of!!! 

Mail  your  suggestions  to: 

DREYNOLDS  or  SHANSARD  on  the  AFIT  CSC  VAX. 

And  thank  YOU...  for  helping  us  carry  out  research  we  hope 
will  produce  PEDAGOGY  RIGHT  FOR  THE  TIMES  and  RIGHT  FOR  YOU! 

Now...  get  to  work!!! 
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Appendix  D:  Thesis  Questionnaire  Source  Code 


DECLARE  SUB  box  (TLR?,  TLC?,  WIDE*,  LL? ,  FGC?  ,  BGC? ,  bx$ , 
sfc?,  style?,  syn$)  DECLARE  SUB  getinput  (instr$,  maxlent) 
DIM  textline$(40 ,  3)  '  (n,m)  n=question 

number,  m=line  number  DIM  SHARED  item$(5) 

DIM  SAVECAR?( 10100)  ,  WALL?(900),  MAN?(500),  HEAD?(500), 
STONE?(10000)  ,  PRO? ( 500 ) 


CLEAR  ,  ,  10000 

size 


TLR? 

-  Position  of  Top 

Left  Row 

tic?  - 

Position  of  Top  Le 

ft  Column 

wide?  - 

-  Width  of  longest 

line  in  list 

11  ?  - 

number  of  items  in 

list 

f gc?  ~ 

Foreground  color 

bgc?  - 

Background  color 

bx$  - 

”n"  for  displaying 

list 

s f c?  - 

shadow  foreground 

color 

style? 

-  border  style 

syn$  ~ 

show  shadow?  (y)es 

o 

c 

w 

U 

o 

l  »  t  i  t  »  i  »  i  »  i  i  i  t  »  I  »  »  •  •  •  »  l  «  «  t  I  I  *  •  »  *  »  »  t  »  »  »  »  • 


DIM  SHARED  item$(12 


ans 1$  =  "" 
ans2$  =  ”" 
ans  3$  =  "" 
ans4$  =  "" 
ans  5$  =  "" 
COLOR  15,  7 
CLS 


*  t  t  *  *  l  i  »  »  »  »  t 

Make  sure 
are  empty 
inputs  are 

tlffttltllff 


t  i  •  *  i  i  i  r  i  t  * 

all  answers 
before 
made 

«  f  f  f  I  f  t  t  I  I  * 


Increase  stack 


I  I  t 


i t em$ ( 1 )  =  "THESIS  QUESTIONAIRE 
CALL  box ( 2 ,  20,  37,  1,  15,  2,  "n",  0,  1,  "y") 

l 


CALL  box ( 7 ,  5,  68,  8,  11,  1,  "y",  0,  1,  "y") 

COLOR  15 
r?  =  10 
c?  =  8 

LOCATE  r?  -  1,  c? 

PRINT  "  THANK  YOU  FOR  PARTICIPATING  IN  THIS  LEARNING 

EXERCISE!"  LOCATE  r?,  c? 

PRINT  " 


LOCATE  r?  +  3,  c? 


PRINT  " 
questions  ) 


Please  answer  the  following  two  sets  of 
LOCATE  r?  +  5,  c? 
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PRINT  "your  responses  will  help  us  understand  the  value  of 
this  experiment."  LOCATE  rX  +  7.  cX 

PRINT  "  The  first  set  of  questions  is  a  short 

demographic  survey."  LOCATE  rX  +  9,  cX 

PRINT  "  The  second  set  of  questions  lets  you  tell  us  what 
you  think"  LOCATE  rX  +  11,  cX 

PRINT  "  of  this  LEARNING/TEACHING 

EXPERIENCE. " 

LOCATE  24,  cX 
COLOR  14,  0 

PRINT  ;  "  < H I T  ANY  KEY  TO  BEGIN> " ; 

DO 

LOOP  UNTIL  INKEY$  <>  " " 

COLOR  15,  7 
CLS 


i t em$ ( 1 )  =  "  DEMOGRAPHICS" 

CALL  box ( 2 ,  22,  32,  1,  15,  4,  "n",  0,  1,  "y") 

»  _ _ _ _ _ _ _  _  _  _  _  _  _  _  _  _  _  _  _  _ _ ________________ 

COLOR  15,  7 

CALL  box ( 8 ,  7,  63,  5,  15,  1,  "Y" ,  0,  1,  "y”) 

t  _ —  —  —  _  —  _ _______________ 

rX  =  11 
LOCATE  rX,  10 

PRINT  "  Your  answers  to  this  set  of  questions  will  provide 
background"  LOCATE  rX  +  1 ,  10 

PRINT  "  information  to  help  us  correlate  your  responses 

to"  LOCATE  rX  +  2,  10 

PRINT  "  the  second  set  of  questions." 

LOCATE  rX  +  4,  10 

PRINT  "If  you  don't  want  to  answer  a  question,  hit  <Enter> 
to  skip  it." 


LOCATE  rX  +  8,  cX 
COLOR  14,  0 

PRINT  ;  "  <HIT  ANY  KEY  TO  C0NTINUE>"; 

DO 

LOOP  UNTIL  INKEY$  <>  "" 

CLS 


i tem$ ( 1 )  ="  DEMOGRAPHICS" 

CALL  bo x ( 1 ,  22,  32,  1,  15,  1,  "n",  0,  1,  "y") 
»  _  —  —  _  _  _  _  —  _  _  _  _  _ 
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2 

rowZ  =  6:  colmZ  =  6:  LINZ  =  5 
COLOR  7,  0 

LOCATE  rowZ,  colmZ 

PRINT  ;  "1.  What  is  your  AFIT  program  (GSM,  GLM ,  etc)?  " ; 
CALL  getinput(ansl$ ,  LINZ) 

COLOR  7 

LOCATE  rowZ  +  2,  colmZ 

PRINT  ;  "2.  What  is  your  level  of  education  (BS,  MA,  etc)? 

CALL  getinput(ans2$ ,  3) 

COLOR  7 

LOCATE  rowZ  +  4,  colmZ 

PRINT  ;  "3.  What  was  the  subject  of  your  latest  degree?  " 
CALL  getinput(ans3$ ,  22) 

COLOR  7 

LOCATE  rowZ  +  6,  colmZ 

PRINT  ;  "4.  Have  you  taken  a  course  in  MATRIX  MATH  (Y/N)? 

CALL  getinput(ans4$ ,  2) 

COLOR  7 

LOCATE  rowZ  +  8,  colmZ 

PRINT  ;  "5.  Have  you  learned  MATRIX  MATH  in  conjunction 
with"  LOCATE  rowZ  ♦  9,  colmZ 
PRINT  ;  "  any  course  (Y/N)?  "; 

CALL  ge t input ( ans 5$ ,  2) 

COLOR  7 

LOCATE  rowZ  +  11,  colmZ 

PRINT  ;  "6.  Please  enter  your  MBTI  code. 

CALL  getinput(ans6$ ,  5) 

COLOR  7 


CALL  box ( 20 ,  4,  68,  2,  15,  4,  "y",  0,  1,  "n") 

cZ  =  0 
rZ  =  21 

LOCATE  rZ,  cZ  +  7 

PRINT  "Please  review  your  answers  and  make  one  of  the 
following  selections."; 

cZ  =  4 

LOCATE  rZ  +  2,  cZ  +  7 

PRINT  "  (C)hange  an  answer  -  (B)egin  the 

questionaire  "  COLOR  14 
LOCATE  rZ  +  2,  cZ  +  14 

PRINT  "(C)" 
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LOCATE  rX  +  2,  cX  +  37 
PRINT  "(B)" 


391 
DO 

sel$  =  INKEY$ 

LOOP  UNTIL  sel$  <>  "" 

IF  se 1$  =  "b"  OR  sel$  =  "B"  GOTO  667 
IF  sel $  =  "c"  OR  sel$  =  "C"  GOTO  392 
GOTO  391 

392 


CALL  box ( 20 ,  4,  68,  2,  15,  4,  "y",  0,  1,  "y") 

t  —  _  _  _  _  _  _  —  ^  —  ^  —  —  ^  __  _  __  ^  _ 

LOCATE  rX,  cX  +  3 

PRINT  "If  an  answer  is  correct,  hit  <Enter>  to  move  to  the 
next  question.  "  LOCATE  rX,  cX  +  32 
COLOR  14,  4 
PRINT  "<Enter>" 

COLOR  15,  4 

LOCATE  rX  +  2,  cX  *  3 

PRINT  "To  change  an  answer,  just  retype  it. 

GOTO  2 
667 

OPEN  " t q  .out"  FOR  APPEND  AS  #6 
PRINT  #6,  ans 1$ 

PRINT  #6,  ans2$ 

PRINT  #6,  ans 3$ 

PRINT  #6,  ans4$ 

PRINT  #6,  ans 5$ 

PRINT  #6,  ans 6 $ 

COLOR  7,  7 
CLS 

OPEN  "tquest  .inp"  FOR  INPUT  AS  #5 

i t  em$ ( 1 )  =  "  QUESTIONAIRE 
CALL  box( 1 ,  25,  29,  1,  15,  2,  "n",  0,  1,  "y") 


q  n  X  =  1 
TRX  =  24 
t  c  X  =  6 

COLOR  0,  0 
LOCATE  16,  1 
FOR  jX  =  1  TO  8 
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PRINT  ;  " 

•• . 

NEXT  jX 

COLOR  9,  0 
LOCATE  16,  1 

PRINT  ; 

•»  _ 


FOR  IX  =  17  TO  23 
LOCATE  IX,  1 
PRINT  ;  "H 

in 

NEXT  IX 
LOCATE  24,  1 
PRINT  ; 

"U  - 


COLOR  11,  0 
LOCATE  25,  1 

PRINT  ;  "  Use  <Arrow>  keys  to  select  response 

<Enter>  to  enter  response 
LOCATE  25,  14 
COLOR  14 

PRINT  ;  " < Ar row> "  ; 

LOCATE  25,  48 
PRINT  ;  "<Enter>"; 

COLOR  9,  0 


rX  =  6 
cX  =  10 


CALL  box( rX ,  cX,  57,  3,  15,  4,  "y",  0,  1,  "y " ) ’ ques t ion  box 


1 

FOR  iX  =  1  TO  3 
IF  EOF ( 5 )  THEN 
CLOSE  #5 
CLOSE  #6 
r  IX  =  1 
c  IX  =  1 
r2X  =  24 
c2X  =  80 
klrX  =  0 
LOCATE  rlX,  clX 

123 

COLOR  klrX 

FOR  iiX  =  clX  TO  c2X  '  iX  is  a  column  variable 

LOCATE  rlX,  iiX 
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print  ;  "I"; 

FOR  dX  =  1  TO  100  'delay 

NEXT  dX  'delay 

NEXT  iiX 
iiX  =  ii%  -  1 

FOR  jX  =  r IX  TO  r2X 
LOCATE  jX,  iiX 
PRINT  ; 

FOR  dX  =  1  TO  100 
NEXT  dX 
NEXT  jX 

FOR  KX  =  c2X  TO  clX  STEP  -1  'kX  is 
LOCATE  jX,  KX 
PRINT  ;  "I"; 

FOR  dX  =  1  TO  100  'delay 

NEXT  dX  'delay 

NEXT  KX 
KX  =  KX  +  1 

FOR  IX  =  r2X  TO  rlX  STEP  -1 
variable 

LOCATE  IX,  KX 
PRINT  ; 

FOR  dX  =  1  TO  100  'delay 

NEXT  dX  'delay 

NEXT  IX 

r IX  =  rlX  +  1 

c IX  =  clX  +  1 

r2X  =  r 2X  -  1 

c2X  =  c2X  -  1 

IF  r IX  >  13  GOTO  234 

GOTO  123 
234 

SCREEN  9,  ,  0,  1 

COLRX  =  8 

pi#  =  3.1416 

COLOR  12,  COLRX 

LOCATE  2,  32 

PRINT  "THIS  HAS  BEEN  A” 

COLOR  12,  COLRX 

FOR  KX  =  0  TO  10  STEP  5 


'  jX  is 


'delay 
’  delay 


row  variable 


column  variable 


'IX  is  a  row 
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IF  KX  =  0  THEN  coX  =  11 
IF  KS  =  5  THEN  coX  =  12 
IF  KX  =  10  THEN  coX  =  10 

CIRCLE  (50,  250),  20,  coX,  0,  3  *  pi #  /  2  '  S 

CIRCLE  (50,  280),  20,  coX,  pi#,  pi#  /  2 
DRAW  "BU45  BR25  R50  L25  D60"  't 

CIRCLE  (150,  265),  29,  coX,  ,  ,  1.5  * 

DRAW  "BD30  BR40  U60  TA25  D65  TA0  U60" 

DRAW  "BR25  R35  L35  D30  R25  L25  D30  R35" 

DRAW  "BU60  BR20  D60  TA155  D40  TA25  D40  TA0  U60 
DRAW  "BD60  BR20  TA-15  U62  TA15  D62  U25  TAO  L25" 
DRAW  "BU36  BR50  D60  R35  BR15  BU60  D60  R35  C15” 
GET  (20,  230 ) -( 520 ,  300),  STONEX 
PUT  (20,  230),  STONEX 

FOR  jX  =  1  TO  5  STEP  1 

PUT  (60  +  KX  +  jX,  60  +  KX  +  jX),  STONEX,  XOR 

PCOPY  0,  1 
NEXT  jX 
NEXT  KX 
PXX  =  POINT ( 0 ) 

PYX  =  POINT(l) 

'SCREEN  9,  ,  0,  1 
DRAW  "BM320 ,175" 

COLOR  1,  COLRX 
pi#  =  3.1416 
PXX  =  POINT ( 0 ) 

PYX  =  POINT ( 1 ) 

GOSUB  WALL 
DRAW  "BM320 ,175" 

GOSUB  CAR 

DRAW  " BM320 ,175" 

GOSUB  MAN 
PCOPY  0,  1 

FOR  jX  =  1  TO  63  STEP  5 

COLOR  15,  jX 

PCOPY  0,  1 

FOR  IX  =  1  TO  2 

NEXT  IX 

NEXT  jX 

COLOR  15,  8 

LOCATE  14,  32 

PRINT  "PRODUCTION" 

GET  (245,  183)-(410,  193),  PROX 
PUT  (245,  183),  PROX,  XOR 
FOR  HX  =  1  TO  220  STEP  8 
PUT  (450  -  HX,  183),  PROX,  PSET 
PUT  (450  -  HX,  183),  PROX,  OR 


55  W 


PCOPY  0,  1 
NEXT  HZ 
LOCATE  24,  29 
COLOR  14 

PRINT  ;  "<  Hit  any  key  to  Quit  >"; 
PCOPY  0,  1 
DO 

LOOP  UNTIL  INKEY$  <>  "" 

GOTO  666 
’END 

I 


man: 

t 


CIRCLE  (320,  220),  4,  4  '? 

PAINT  (320,  220),  2,  4  '? 

6$  =  "  S4  TA20  L20  TAO  L15  R15  TA45  L15  R15  TA20  RIO  TAO  L10 
RIO  TA60  L10"  DRAW  B$ 

PUT  (XZ,  YZ),  SAVECARZ,  XOR 
PUT  (320,  235),  WALLZ,  PSET 
’LINE  (315,  215 )-( 330 ,  225),  15,  B 
GET  (315,  2 1 5 ) “( 330 ,  224),  HEADZ 
GET  (280,  215)-(330,  234),  MANZ 
PCOPY  0,  1 

PUT  (280,  215),  MANZ,  XOR 
GOSUB  wndw 
MYZ  =  200 

FOR  MXZ  =  280  TO  375  STEP  10 
IF  MXZ  >  310  THEN 


MYZ  =  MYZ  +  9  ’  MAN  FALLS 

END  IF 

PUT  (MXZ,  MYZ),  MANZ 
PCOPY  0,  1 

PUT  (MXZ,  MYZ),  MANZ,  XOR 
NEXT  MXZ 

BODY$  =  "S6  BD20  C12  TA45  R5  TA-25  R5  TA35  R5  TA-55  R5  TA65 

R5  TA-35  R5  TAO"  B0DY1$  =  ”  CIO  BL+25  TA20  R5  TA-45  R5  TA45 

R5  TA-20  R5  TA45  R5  TA-45  R5  S4"  DRAW  BODY$  +  B0DY1$ 

PCOPY  0,  1 


PUT  STEP(1,  -6),  HEADZ  'HEAD  APPEARS 

PCOPY  0,  1 

PUT  STEP ( 0 ,  0),  HEADZ,  XOR 
PCOPY  0,  1 
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FOR  HXZ  =  450  TO  620  STEP  10 
PUT  (HXZ,  260),  HEADZ,  XOR 
PCOPY  0,  1 

PUT  (HXZ,  260),  HEADZ,  XOR 
NEXT  HXZ 

PUT  (620,  260),  HEADZ,  OR 

RETURN 

END 

I 


wndw : 


DRAW  "BM285 , 235 " 

W$  =  "  TA-18  RIO  TA54  L5 
DRAW  "S2  C15 "  +  W$ 

DRAW  "S3"  +  W$ 

DRAW  "S4  C12 "  +  W$ 

'DRAW  "BM320 ,175" 

RETURN 

END 


CRASH*. 

f 


DRAW  "BM  310,260" 

STAR$  =  "  C15  TA-18  U5  TA18  D5  TA54  U5  TA-90  U5  TA-54  D5 

TAO"  DRAW  " S  2 "  +  STARS 

DRAW  "S10"  +  STARS 

DRAW  " S 1 5 "  +  STARS 

DRAW  "S20 "  +  STARS 

COLOR  1,  15 

FOR  1Z  =  1  TO  5000 

NEXT  1Z 

COLOR  1,  12 

FOR  1Z  =  1  TO  5000 

NEXT  1Z 

RETURN 

END 


car: 


DRAW  "BM10 ,235" 

CAR 1 $  =  "Cl 5  R20  TA45  R20  TAO  R30  TA-45  R20  TA-10  R25  TA-60 
R15  TAO  L115  TA75  R18"  CAR2$  =  "C15  TAO  R76  BL10  BU2  P8,15 
BD2  BRIO" 

DRAW  CARlS  ♦  CAR2S 
PAINT  STEP ( -10 ,  2),  4,  15 
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'  FRONT 


CIRCLE  STEP(25,  11),  10,  15,  -pi#,  0 
WHEEL  PAINT  STEP(2,  2),  8,  15 
CIRCLE  STEP(-74 ,  -2),  10,  15,  -pi#,  0 
WHEEL  PAINT  STEP(2,  2),  8,  15 
'LINE  (310,  160)-(432 ,  196),  2,  B 

LYX  =  235 

GET  (1,  LYX  -  10)-( 132 ,  LYX  +  36),  SAVECARX 
PUT  (1,  LYX  -  10),  SAVECARX,  XOR 

YX  =  LYX 

FOR  XX  =  1  TO  210  STEP  10  '  STEP  10  NORMAL-  STEP  30 

FOR  COLORS  PUT  (XX,  YX),  SAVECARX,  XOR 

IF  XX  >  210  THEN 

PUT  (320,  235),  WALLX ,  PSET 

GOSUB  CRASH 

COLOR  1,  8 

END  IF 

PCOPY  0,  1 

PUT  (XX,  YX),  SAVECARX,  XOR 
NEXT  XX 

PUT  (320,  235),  WALLX,  PSET 

GOSUB  CRASH 

COLOR  1,  8 

RETURN 

END 

• 


WALL: 

I 


'  REAR 

'  BOX  THE  CAR 


WALLS  =  "  U5  R30  DIO  L30  U5  BR1  P4,15  BLl  C15  R30  L15  U5  D5 
L7  D5  R15  U5 " 

DRAW  WALLS 

GET  (320,  170) -( 380 ,  180),  WALLX 
PUT  (320,  170),  WALLX,  XOR 
FOR  jX  =  235  TO  255  STEP  10 
PUT  (320,  jX),  WALLX,  OR 
NEXT  jX 

GET  (320,  235 )-( 370 ,  265),  WALLX 

RETURN 

END 

END  IF 

LINE  INPUT  #5,  textlineSO,  iX) 

NEXT  iX 
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LINE  INPUT  #5,  dum$ 

rt  =  6 
ct  =  10 

COLOR  4,  4 

FOR  iX  =  3  TO  5 
LOCATE  rX  +  it,  ct  +  3 
PRINT  ;  " 

»  • 

NEXT  it 

COLOR  14,  4 

LOCATE  rt  +  1,  ct  ♦  3 

PRINT  "STATEMENT  #" ;  qnt;  " :  " 

COLOR  15,  4 

FOR  it  =  1  TO  3 

LOCATE  rt  +  it  +  2,  ct  +  3 

PRINT  textline$ ( 1 ,  it) 

NEXT  it 
choozt  =  3 

t  I  I  »  »  »  »  »  »  ♦  »  t  »  I  •  »  t  •  •  »  •  »  I  »  »  «  »  I  t  »  1  »  »  I  I  t  »  »  »  »  I  t  I  t  t  I  I  I  t  »  I  « 

rt  =  18  '  location  of 

ct  =  5  '  Likert  scale 

GOSUB  likert 
GOSUB  choozit 

24  'return  here 

KEY  17,  CHR$ ( &H0 )  +  CHR$(28) 

KEY  15,  CHR$ (&H0 )  +  CHR$(1) 

KEY ( 12 )  ON 
KEY ( 13 )  ON 
KEY (15)  ON 
KEY (17)  ON 
29 

ON  KEY ( 12 )  GOSUB  MOVELT 
ON  KEY (13)  GOSUB  MOVBRT 
ON  KEY (15)  GOSUB  ext 
ON  KEY (17)  GOSUB  rtn 

GOTO  29 

choozit : 

IF  choozt  =  1  THEN 

COLOR  28,  0  '  28  =  blink  red 

LOCATE  rt  +  4,  ct  +  3 

PRINT  . 

LOCATE  rt  +  1,  ct 


'enter  -  ? 
'esc  -  QUIT 
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PRINT  "Strongly” 

LOCATE  rX  +  2,  cX 
PRINT  "Disagree" 

ELSEIF  choozX  =  2  THEN 
COLOR  28,  0 
red 

LOCATE  rX  +  4,  cX  +  19 
PRINT 

LOCATE  rX  +  2,  cX  +  16 
PRINT  "Disagree" 

ELSEIF  choozX  =  3  THEN 
COLOR  27,  0 
bright  cyan 

LOCATE  rX  ♦  4,  cX  +  35 
PRINT  "“" 

LOCATE  rX  +  2,  cX  +  31 
PRINT  "Undecided" 
ELSEIF  choozX  =  4  THEN 
COLOR  26,  0 
green 


LOCATE 

rX  +  4 , 

cX 

+ 

51 

PRINT 

M  a  f| 

LOCATE 

rX  +  2, 

cX 

+ 

49 

PRINT 

"Agree" 

ELSEIF 

choozX  = 

5  THEN 

COLOR 

26,  0 

green 

LOCATE 

rX  +  4, 

cX 

+ 

67 

PRINT 

••  •» 

LOCATE 

rX  +  1, 

cX 

+ 

63 

PRINT 

"Strongly 

f  It 

LOCATE 

rX  +  2, 

cX 

+ 

65 

PRINT 

"Agree" 

28  =  blink 


’  27  =  blink 


*  26  =  blink 


'  26  =  blink 


END  IF 
COLOR  15 
RETURN 
END 


MOVELT:  '  move  left 

♦ _ 

KEY ( 12 )  OFF 
KEY( 13)  OFF 
KEY ( 15  )  OFF 
KEY (17)  OPF 
GOSUB  likert 
choozX  =  choozX  -  1 
IF  choozX  <  1  THEN  choozX  =  1 
GOSUB  choozit 
GOTO  24 
RETURN 
END 
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MOVERT 


1  move  right 


KEY ( 12 )  OFF 
KEY ( 13 )  OFF 
KEY ( 15 )  OFF 
KEY (  17  )  OFF 
GOSUB  likert 
choozX  =  choozX  +  1 
IF  choozX  >  5  THEN  choozX  =  5 
GOSUB  choozit 
GOTO  24 
RETURN 
END 

I _ _ _ _ _ _ _ _ _ _ _ _ 

likert:  '  white  scale 


COLOR  15,  0 
LOCATE  rX  +  1,  cX 
PRINT  "Strongly 
Strongly" 

LOCATE  rX  +  2,  cX 
PRINT  "Disagree  Disagree 

Agree  Agree" 

LOCATE  rX  *  3,  cX 
PRINT  " 


LOCATE  rX  +  4,  cX 
PRINT  " 

RETURN 

END 


KEY ( 12 )  OFF 
KEY ( 13 )  OFF 
KEY (15)  OFF 
KEY (17)  OFF 
GOTO  666 
RETURN 
END 
rtn : 

KEY ( 12 )  OFF 
KEY (13)  OFF 
KEY (15)  OFF 
KEY (17)  OFF 
PRINT  #6,  choozX 
qnX  =  qnX  +  1 

GOTO  1 
RETURN 
END 


Undecided 


t 
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# 


666 

CLS 

SCREEN  0 
END 

SUB  box  (TLRX ,  TLCX,  WIDE*,  LLX ,  FGCX,  BGCX,  bx$,  sfcX, 
styleX ,  synS) 


1  TLRI  -  Position  of  Top  Left  Row 
tlcX  -  Position  of  Top  Left  Column 
'  widet  -  Width  of  longest  line  in  list 
'  11  X  -  number  of  items  in  list 
fgcX  -  Foreground  color 
'  bgcX  -  Background  color 

bx$  -  "n"  for  displaying  list 
'  sfcX  -  shadow  foreground  color 
'  styleX  -  border  style 
'  syn$  -  show  shadow?  (y)es  or  (n)o 

I  »  I  (  I  I  I  «  •  »  (  I  •  f  I  I  I  •  f  I  I  t  t  t  •  t  »  I  I  t  t  f  f  I  t  •  I  •  f  I  I  I  I  t  *  I 

WIDEX  =  WIDEX  +  2 

STLCX  =  TLCX  -  1:  STLRX  =  TLRX  +  1:  SWIDEX  =  WIDEX  +  4 
TALLX  =  LLX  *  2  -  1 

»  _ —  *  —  —  —  —  — 

'  These  are  the  BOX  styles  available 

I  _  —  —  _  —  — 

IF  styleX  =  1  THEN 

TL$  =  "  n":  TR$  =  "m  "i  BL$  =  "  t  BR$  = 

H  ”  :  RS$  =  ”jj  "  LIN$  =  STRINGS  (WIDEX » 

ELSEIF  styleX  =  2  THEN 

TL$  =  ’’  r":  TR$  =  "-|  BL$  =  ”  L" :  BR$  =  ,,J 

I":  RS$  =  '’I  "  LIN$  =  STRINGS  (WIDEX ,  "  ") 

ELSEIF  styleX  =  3  THEN 

TL$  =  "  TR$  =  "  BL$  =  "  BR$  =  - 

I”:  RS$  =  "|  "  LINS  =  STRINGS (WIDEX  *  "  " ) 

END  IF 

TOPLINES  =  TL$  +  LINS  +  TR$ 

BOTLINES  =  BL$  +  LIN$  +  BR$ 

IF  syn$  =  "y"  OR  syn$  =  "Y"  THEN 

COLOR  sfcX,  sfcX 

FOR  iX  =  STLRX  TO  STLRX  +  TALLX  +  1 
LOCATE  iX,  STLCX 
PRINT  ;  SPC(l); 

NEXT  iX 

PRINT  ;  SPC( SWIDEX  -  l); 

END  IF 

COLOR  FGCX,  BGCX 
LOCATE  TLRX,  TLCX 


shadow 

tfltltfttftll 


ls$  =  ” 
ls$  =  " 
ls$  =  " 
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PRINT  ;  TOPLINES; 

POR  it  =  TLRt  +  1  TO  TLRt  +  TALLt 

LOCATE  it,  TLCt 

print  ;  LS$;  SPC(wiDEt);  rs$; 

NEXT  it 

LOCATE  it,  TLCt 
PRINT  ;  BOTLINE$; 

IF  bx$  =  "y"  OR  bx$  =  "Y”  GOTO  9999 

jt  =  TLRt  +  1 

Kt  =  TLCt  +  3 

FOR  it  =  1  TO  LLt 

LOCATE  jt,  Kt 

PRINT  ;  item$( it) ; 

jt  =  jt  +  2 

NEXT  it 

9999 


box 


% 


END  SUB 

SUB  getinput  (instr$,  maxlent) 

CONST  Insertt  =  1,  overstriket  =  2 

*  make  required  initializations 
firstcolt  =  POS(O) 
insertmodet  =  overstriket 
curpost  =  1 

display  available  length  with  a  blue  box 
PRINT  instr$; 

COLOR  ,  1 

PRINT  SPACES (maxlent  -  LEN( ins tr$  )  )  ; 

LOCATE  ,  firstcolt 


blink  cursor 
COLOR  31,  11 
IF  LEN(instrS)  =  0  THEN 
PRINT  "  CHR$( 29 )  ; 

ELSE 

PRINT  LEFTS ( instr$  ,  1);  CHR$(29); 
END  IF 
COLOR  15,  0 


get  first  character 
DO 

onecharS  =  INKEY$ 

LOOP  WHILE  onecharS  = 

process  characters  one  at  a  t ime 
DO  UNTIL  onecharS  =  CHR$(13) 

’  de-highlight  current  character 

IF  curpost  >  maxlent  THEN 
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PRINT  "  CHR$ (29); 

ELSEIF  curposX  >  LEN(instr$)  THEN 

COLOR  15,  1  '? 

PRINT  "  CHR$ ( 29 ) ; 

COLOR  15,  0  ’? 

ELSE 

FRINT  MID$ ( instr$ ,  curposX,  1);  CHR$(29); 
END  IF 

check  for  special  characters 
IF  LEFT$(onachar$ ,  1)  =  CHR$(0)  THEN 

’  check  for  <RIGHT> 

IF  RIGHT$(onechar$,  1)  =  CHR$(77)  THEN 

if  before  last  character,  move  right 
IF  curposl  <=  LEN(instrS)  THEN 
curposl  =  curposl  +  1 
END  IF 

check  for  <left> 

ELSEIF  RIGHTS (onechar$,  1)  =  CHR$(75)  THEN 

if  past  first  character,  move  left 
IF  curposX  >  1  THEN 

curposX  =  curposX  ~  1 
END  IF 

check  for  <DEL> 

ELSEIF  RIGHTS (onechar$ ,  1)  =  CHR$(83)  THEN 

if  before  last  character,  remove  one 
IF  curposX  <=  LEN(instrS)  THEN 

instrS  =  LEFT$( instr$ ,  curposX  -  1)  + 
MID$(instr$,  curposX  +  1) 

PRINT  MID$ ( ins  t r$ ,  curposX);  "  "  ; 

END  IF 


check  for  <INS> 


ELSEIF  RIGHTS (one char$ ,  D  =  CHR$(82)  THEN 

toggle  insert  mode 
IF  insertmodeX  =  overstrikeX  THEN 
insertmodeX  =  InsertX 
ELSE 

insertmodeX  =  overstrikeX 
END  IF 

END  IF 

’  check  for  <BACKSPACE> 


one 


one 


155 


ELSEIF  onechar$  =  CHR$(8)  THEN 

if  past  first  character  then  remove  one 
IF  curpost  >  1  THEN 

IF  curpost  >  LEN(instr$)  THEN 
PRINT  CHR$ ( 29 ) ;  " 

ELSE 

PRINT  CHR$ ( 29 ) ;  MID$(instr$,  curpost);  " 

END  IF 

instr$  =  LEFTS ( instrS ,  curpost  -  2)  +  MID$(instr$, 

curpost) 

curpost  =  curpost  -  1 
END  IF 


no  special  character,  so  check  for  overstrike  mode 


ELSEIF  insertmodet  =  overstriket  THEN 

if  overstrike,  replace  that  character 
or  add  it  to  the  end 
IF  curpost  <=  LEN(instr$)  THEN 

MID$(instr$,  curpost,  1)  =  onechar$ 

PRINT  onechar$; 
curpost  =  curpost  +  1 
ELSEIF  curpost  <=  maxlent  THEN 
instr$  =  instr$  +  onecharS 
PRINT  onecharS; 
curpost  =  curpost  +  1 
ELSE 

BEEP 
END  IF 

'  insertmode  must  be  in  insert 

ELSEIF  curpost  <=  maxlent  THEN 

insert  character,  move  rest  of  string  over 
instr$  =  LEFTS ( ins tr$ ,  curpost  -  1)  +  onecharS  + 
MID$(instr$,  curpost) 

PRINT  MID$(instr$,  curpost); 
curpost  =  curpost  +  1 
ELSE 
BEEP 
END  IF 

»  _ 

highlight  cursor  position 


COLOR  31,  11 

LOCATE  ,  firstcolt  +  curpost  -  1 
IF  curpost  >  LEN(instrS)  THEN 
PRINT  "  ";  CHR$ ( 29 )  ; 

ELSE 

PRINT  MID$ ( instr$  ,  curpost,  1);  CHR$(29); 
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END  IP 
COLOR  15,  0 

get  another  character 
DO 

onechar$  =  INKEY$ 

LOOP  WHILE  onechar$  =  "" 

LOOP 


redisplay  string  without  length  display 
LOCATE  ,  firstcolX 

PRINT  instr$;  SPACE$ (mazlenZ  -  LEN(instr$)) 
END  SUB 
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1.  Being  given  the  opportunity  to  repeat  any  exercise  as 
often  as  necessary  enhanced  my  ability  to  learn  complex 
mathematical  operations. 


RESPONSE  FREQUENCY 


1.  S.  Disagree 

2.  Disagree 

3.  Undecided 

4.  Agree 

5.  S.  Agree 


Disagree 

-  OS 

Undecided 

-  10% 

Agree 

-  90% 

MEAN 

S.D. 

MEDIAN 

MINIMUM 

MAXIMUM 

4.175 

5 . 943E-01 

4.000 

3.000 

5.000 

2.  The  mechanical  simplicity  of  the  Matrix  Program  allowed 
me  to  concentrate  on  LEARNING  MATHEMATICAL  CONCEPTS 
rather  than  on  HOW  TO  USE  THE  PROGRAM  proper. 


RESPONSE  FREQUENCY 


1. 

S.  Disagree 

0 

2. 

Disagree 

1 

■ 

3. 

Undecided 

2 

■■ 

4  . 

Agree 

21 

■■ 

5  . 

S.  Agree 

16 

"" 

Disagree 

2.5% 

Undecided  - 

5.0% 

Agree 

92.5% 

MEAN 

S.D. 

MEDIAN 

MINIMUM 

MAXIMUM 

4.300 

6 .869E-01 

4.000 

2.000 

5.000 

3.  The  use  of  color  graphics  highlighted  critical  matrix 
operations  and  helped  focus  my  attention  on  key 
activities  of  the  process  under  study. 


RESPONSE  FREQUENCY 


1. 
2. 
3. 
4  . 
5. 


Disagree 

-  5% 

Undecided 

-  5% 

Agree 

-  90% 

MEAN 

S  .D. 

MEDIAN 

MINIMUM 

MAXIMUM 

4.150 

7 . 355E-01 

4.000 

2.000 

5.000 

4.  Being  able  to  step  through  an  operation  at  my  own  pace 
helped  me  discover  the  essential  aspects  of  each  matrix 
operation . 

RESPONSE  FREQUENCY 


1  . 

S.  Disagree 

0 

2. 

Disagree 

1 

3. 

Undecided 

1 

4  . 

Agree 

22 

5  . 

S.  Agree 

16 

Disagree 

-  2.5% 

Undecided 

-  2.5% 

Agree 

-  95.0% 

MEAN 

S.D. 

MEDIAN 

MINIMUM 

MAXIMUM 

4.325 

6 . 558E-01 

4.000 

2.000 

5.000 

S.  Disagree  0 

Disagree  2 

Undecided  2 

Agree  24 

S.  Agree  12 
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5.  Mathematical  operations  SHOULD  BE  visualized  BEFORE  any 
attempt  is  made  to  state  the  process  rigorously. 


RESPONSE  FREQUENCY 


1.  S.  Disagree 

2.  Disagree 

3.  Undecided 

4.  Agree 

5.  S.  Agree 


Disagree 

-  5% 

Undecided 

-  15% 

Agree 

-  80% 

MEAN 

S.D. 

MEDIAN 

MINIMUM 

MAXIMUM 

3.950 

7 . 494E-01 

4.000 

2.000 

5.000 

6.  Using  the  MATRIX  program  was  a  lot  more  fun  than  reading 
about  matrix  operations  in  a  text  book. 


RESPONSE  FREQUENCY 


1.  S.  Disagree 

2.  Disagree 

3.  Undecided 

4.  Agree 

5.  S.  Agree 


Disagree 

-  2.5% 

Undecided 

-  7.5% 

Agree 

-  80.0% 

MEAN 

S.D. 

MEDIAN 

MINIMUM 

MAXIMUM 

4.250 

7.071E-01 

4.000 

2.000 

5.000 
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7.  The  MATRIX  program  made  learning  mathematical  concepts 
much  easier  than  being  introduced  to  them  via  lecture. 


t 


RESPONSE 


1.  S.  Disagree 

2.  Disagree 

3.  Undecided 

4.  Agree 

5.  S.  Agree 


Disagree  -  15% 
Undecided  -  15% 
Agree  -  70% 


MEAN  S.D.  MEDIAN  MINIMUM  MAXIMUM 


FREQUENCY 


3.650 


8.638E-01  4.000 


2.000 


5.000 


8.  Being  able  to  study  each  matrix  operation  step  by  step 
made  it  much  easier  for  me  to  describe  the  operation 
verbally . 


RESPONSE 


1.  S.  Disagree 

2.  Disagree 

3.  Undecided 

4.  Agree 

5.  S.  Agree 


Disagree 

-  2.5% 

Undecided 

-  5.0% 

Agree 

-  92.5% 

MEAN 

S.D. 

MEDIAN 

MINIMUM 

MAXIMUM 

4.275 

6.789E-01 

4.000 

2.000 

5.000 

FREQUENCY 


0 

1 

2 

22 

15 
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9.  Verbalizing  the  steps  in  a  matrix  operation  provided  me 
with  an  excellent  way  to  display  my  knowledge  about  each 
operation . 

RESPONSE  FREQUENCY 


1 . 
2. 

3. 

4. 

5. 


Disagree 

-  5% 

Undecided 

-  2% 

Agree 

-  75% 

MEAN 

S.D. 

MEDIAN 

MINIMUM 

MAXIMUM 

3.750 

6 . 304E-01 

4.000 

2.000 

5.000 

10.  Two  way  communication  with  an  instructor  is  essential 
for  a  student  to  master  the  steps  involved  in 
performing  any  matrix  operation. 


RESPONSE  FREQUENCY 


1.  S.  Disagree 

2.  Disagree 

3.  Undecided 

4.  Agree 

5.  S.  Agree 


Disagree 

-  20% 

Undecided 

-  15% 

Agree 

-  65% 

MEAN 

S.D. 

MEDIAN 

MINIMUM 

MAXIMUM 

3.750 

1.171 

4.000 

1.000 

5.000 

S.  Disagree 
Disagree 
Undecided 
Agree 
S.  Agree 
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11 


I  prefer  to  THINK  privately  about  what  I  know  rather 
than  try  to  objectively  display  ay  knowledge  by 
verbalization . 


1. 

2. 

3. 

4. 

5. 


Disagree 
Undecided  - 
Agree 

MEAN 


3.450 


12.  It  is 
an  adequate 


1. 

2. 

3. 

4  . 

5  . 


Disagree  - 
Undecided  - 
Agree 


MEAN 


3 . 17o 


RESPONSE 


S.  Disagree 
Disagree 
Undecided 
Agree 
S.  Agree 


27. 5% 
17. 5X 
55. OX 


S.D.  MEDIAN  MINIMUM  MAXIMUM 


1.085  4.000  2.000  5.000 


FREQUENCY 


the  teacher's  responsibility  to  ensure  I  possess 
concept  base  to  learn  any  particular  subject. 


RESPONSE  FREQUENCY 


S.  Disagree  0 

Disagree  16 

Undecided  5 

Agree  15 

S.  Agree  4 


40. OX 
12. 5X 
47. 5X 


S.D. 


MEDIAN  MINIMUM  MAXIMUM 


1.083 


3.000  2.000  5.000 
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13.  I  don't  think  verbalization  helps  me  to  formulate 
algorithms  at  all. 


RESPONSE 


1.  S.  Disagree 

2.  Disagree 

3.  Undecided 

4.  Agree 

5.  S.  Agree 


Disagree 

Undecided 

Agree 

-  70. OX 

-  17. 5X 

-  12. 5X 

MEAN 

S  .D. 

MEDIAN 

MINIMUM 

MAXIMUM 

2.350 

8.022E-01 

2.000 

1.000 

4.000 

FREQUENCY 


14.  Anyone  can  construct  an  algorithm  by  observing  an 
operation.  There  is  no  need  to  verbalize  what  is 
observed  BEFORE  constructing  such  an  algorithm. 


1 . 
2. 

3. 

4. 

5. 


RESPONSE  FREQUENCY 


S.  Disagree  6 

Disagree  20 

Undecided  9 

Agree  5 

S.  Agree  0 


Disagree  ~  65. OX 
Undecided  -  22.5% 
Agree  -  12. 5X 


MEAN 

S  .D. 

MEDIAN 

MINIMUM 

MAXIMUM 

2.325 

8 . 883E-01 

2.000 

1.000 

4.000 
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15.  Being  asked  to  verbalize  the  process  makes  it  easier  to 
write  an  algorithm  for  the  process. 


RESPONSE  FREQUENCY 


1 .  S .  Disagree 

2.  Disagree 

3.  Undecided 

4.  Agree 

5 .  S .  Agree 


Disagree 

-  12. 5% 

Undec ided 

-  15. OX 

Agree 

-  72. 5X 

MEAN 

S.D. 

MEDIAN 

MINIMUM 

MAXIMUM 

3.700 

8 . 228E-01 

4.000 

2.000 

5.000 

16.  Constructing  an  algorithm  for  a  matrix  operation  is  an 
excellent  way  to  rigorously  display  ones  understanding 
of  some  process. 

RESPONSE  FREQUENCY 


1 .  S .  Disagree 

2.  Disagree 

3.  Undecided 

4 .  Agree 

5 .  S .  Agree 


Di sagree 

-  2 . 5X 

Undec ided 

-  15. OX 

Agree 

-  82. 5X 

MEAN 

S.D. 

MEDIAN 

MINIMUM 

MAXIMUM 

4 . 100 

7.442E-01 

4.000 

2.000 

5.000 
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17.  A  minimum  set  of  concepts  is  required  to  develop  an 
algorithm  about  any  matrix  operation. 


RESPONSE 

FREQUENCY 

1 . 

S.  Disagree 

1  ■ 

2. 

Disagree 

2  ■■ 

3. 

Undecided 

2  ■■ 

4. 

Agree 

29 

5. 

S.  Agree 

6  ■■■■■ 

Disagree 

7.5% 

Undecided 

5. OX 

Agree 

- 

87.5% 

MEAN 

S  .D. 

MEDIAN 

MINIMUM 

MAXIMUM 

3.925 

7.970E-01 

4.000 

1.000 

5.000 

18.  The  minimum  set  of  concepts  required  to  develop  an 
algorithm  should  be  provided  to  the  student  by  the 
instructor . 


RESPONSE  FREQUENCY 


1.  S.  Disagree 

2.  Disagree 

3.  Undecided 

4.  Agree 

5.  S.  Agree 


Disagree 

-  17. 5X 

Undecided 

-  22. 5% 

Agree 

-  60.0% 

MEAN 

S.D. 

MEDIAN 

MINIMUM 

MAXIMUM 

3.525 

0.987 

4.000 

1.000 

5.000 
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19.  A  formal  mathematical  model  of  any  matrix  operation  can 
be  constructed  without  formulating  an  algorithm  for  the 
process  . 

RESPONSE  FREQUENCY 


1.  S.  Disagree 

2.  Disagree 

3.  Undecided 

4.  Agree 

5.  S.  Agree 


Disagree 

-  60% 

Undecided 

-  15% 

Agree 

-  25% 

MEAN 

S  .D. 

MEDIAN 

MINIMUM 

MAXIMUM 

2.600 

9 . 282E-01 

2.000 

1.000 

4.000 

20.  The  mathematical  modeling  of  a  matrix  operation  is 
facilitated  by  constructing  an  algorithm  AFTER 
verbalizing  the  steps  involved  in  the  process  under 
observation . 


RESPONSE  FREQUENCY 


1.  S.  Disagree 

2.  Disagree 

3.  Undecided 

4.  Agree 

5.  S.  Agree 


Disagree  -  5% 

Undecided  -  15% 
«  Agree  “  80% 


MEAN 

S.D. 

MEDIAN 

MINIMUM 

MAXIMUM 

3.800 

6.076E-01 

4.000 

2.000 

5.000 
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21 


Constructing  an  algorithm  for  any  matrix  operation 
makes  the  mathematical  modeling  of  the  process  much 
easier . 


RESPONSE  FREQUENCY 


1.  S.  Disagree 

2.  Disagree 

3.  Undecided 

4.  Agree 

5.  S.  Agree 


Disagree  -  7 . 5% 
Undecided  -  5. OX 
Agree  -  87.5% 


MEAN  S .D. 


MEDIAN  MINIMUM  MAXIMUM 


4.025  7.675E-01  4.000 


2.000 


5.000 


a 


4 


22.  Being  asked  to  construct  mathematical  models  builds  a 

person's  confidence  in  being  able  to  use  mathematics  in 
daily  work  activities. 


RESPONSE 


1 .  S .  Disagree 

2.  Disagree 

3.  Undecided 

4.  Agree 

5.  S.  Agree 


Disagree 

-  5% 

Undecided 

-  10% 

Agree 

-  85% 

MEAN 

S.D. 

MEDIAN 

MINIMUM 

MAXIMUM 

4.000 

7 . 161E-01 

4.000 

2.000 

5.000 

FREQUENCY 


i 
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23.  The  aost  effective  way  to  communicate  a  mathematical 
concept  to  another  person  is  to  present  him  with  the 
most  general  form  possible  —  the  mathematical  formula. 

RESPONSE  FREQUENCY 


1. 

2. 

3. 

4. 
5  . 


Disagree 

-  52. 5% 

Undecided 

-  15. OX 

Agree 

-  32. 5X 

MEAN 

S.D. 

MEDIAN 

MINIMUM 

MAXIMUM 

2.875 

1.042 

2.000 

2.000 

5.000 

24.  Mathematics  can  be  taught  without  using  formal 
mathematical  symbolism. 

RESPONSE  FREQUENCY 


1.  S.  Disagree 

2.  Disagree 

3.  Undecided 

4.  Agree 

5.  S.  Agree 


Disagree 

-  50X 

Undecided 

-  15X 

Agree 

-  35X 

MEAN 

S.D. 

MEDIAN 

MINIMUM 

MAXIMUM 

2.775 

1.097 

2.500 

1.000 

5.000 

S.  Disagree  0 

Disagree  21 

Undecided  6 

Agree  10 

S.  Agree  3 
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25.  Before  any  student  is  given  the  mathematical  formula 

for  a  matrix  operation  **  he/she  should  have  a  chance  to 
observe  the  process  and  VISUALIZE  every  step. 


RESPONSE 


1.  S.  Disagree 

2.  Disagree 

3.  Undecided 

4.  Agree 

5 .  S .  Agree 


Disagree 

Undecided 

Agree 

-  7 . 5X 

-  10. OX 

-  82. 5% 

MEAN 

S.D. 

MEDIAN 

MINIMUM 

MAXIMUM 

3.950 

7 .828E-01 

4.000 

2.000 

5.000 

FREQUENCY 


a 


f 


26.  By  studying  mathematical  formulae  first,  students  can 
grasp  what  a  matrix  operation  involves  without 
resorting  to  observing  a  particular  example  of  the 
process . 


RESPONSE  FREQUENCY 

1 .  S .  Disagree  3 

2.  Disagree  22 

■- 

3.  Undecided  9 

4 .  Agree  6 

5 .  S .  Agree  0 

Disagree 

Undecided 

Agree 

-  62 . 5X 

-  22. 5X 

-  15. OX 

MEAN 

S.D. 

MEDIAN 

MINIMUM 

MAXIMUM 

2.450 

8 . 458E-01 

2.000 

1.000 

4.000 
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27 


Using  the  matrix  program  as  a  learning  tool  was  more 
interesting  than  listening  to  an  ordinary  lecture. 


RESPONSE  FREQUENCY 


1 .  S .  Disagree 

2.  Disagree 

3.  Undecided 

4.  Agree 

5.  S.  Agree 


Disagree  -  5.0% 
Undecided  -  7.5% 
Agree  -  87.5% 


MEAN 


4.100 


S  .D. 


7 . 442E-01 


MEDIAN 


4.000 


MINIMUM 


2.000 


MAXIMUM 


5.000 


28.  All  four  steps  of  the  VVAM  process  should  be  employed 
every  time  a  new  matrix  operation  is  mastered  and 
mathematically  modeled. 


RESPONSE 


1.  S.  Disagree 

2.  Disagree 

3.  Undecided 

4.  Agree 

5.  S.  Agree 


Disagree  -  27.5% 
Undecided  -  25.0% 
Agree  -  47.5% 


MAXIMUM 


5.000 


MEAN 

S.D. 

MEDIAN 

MINIMUM 

200 

9 .392E-01 

3.000 

1.000 

FREQUENCY 
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29.  I  would  use  learning  tools  similar  to  the  MATRIX 
program  if  given  the  opportunity. 


RESPONSE  FREQUENCY 


1.  S.  Disagree 

2.  Disagree 

3.  Undecided 

4.  Agree 

5.  S.  Agree 

Disagree  -  2.5% 

Undecided  -  5. OX 

Agree  -  92. 5% 


MEAN 

S  .D. 

MEDIAN 

MINIMUM 

MAXIMUM 

4.100 

5.905E-01 

4.000 

2.000 

5.000 

30.  A  Program  like  the  HANSARD  MATRIX  SYSTEM  should  be 
constructed  for  all  types  of  mathematical  subjects. 


RESPONSE  FREQUENCY 


1.  S.  Disagree 

2.  Disagree 

3.  Undecided 

4.  Agree 

5.  S.  Agree 


Disagree  -  10% 
Undecided  -  20X 
Agree  -  70X 


MEAN 

S.D. 

MEDIAN 

MINIMUM 

MAXIMUM 

725 

8.161E-01 

4.000 

2.000 

5.000 
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31.  I  don't  think  the  HANSARD  MATRIX  SYSTEM  helped  me  learn 
much  about  matrix  algebra  at  all. 


RESPONSE  FREQUENCY 


1.  S.  Disagree 

2.  Disagree 

3.  Undecided 

4.  Agree 

5.  S.  Agree 


Disagree  -  82. 5% 
Undecided  -  12. 5X 

Agree  -  5. OX 

MEAN  S.D. 

MEDIAN 

MINIMUM 

MAXIMUM 

1.975  7.675E-01 

2.000 

1.000 

4.000 

32.  Using  the  HANSARD  MATRIX  SYSTEM  motivated  me  to  think 
deeply  about  the  THEORY  of  matrix  algebra. 


RESPONSE  FREQUENCY 


1.  S.  Disagree 

2.  Disagree 

3.  Undecided 

4.  Agree 

5 .  S .  Agree 


Disagree 

-  27. 5% 

Undecided 

-  17. 5% 

Agree 

-  55. OX 

MEAN 

S.D. 

MEDIAN 

MINIMUM 

MAXIMUM 

3.300 

9 . 115E-01 

4.000 

2.000 

5.000 
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33.  By  using  the  VVAM  heuristic  for  model  building,  I 
became  conscious  of  how  mechanical  my  previous 
knowledge  of  mathematics  is. 


RESPONSE  FREQUENCY 


1.  S.  Disagree 

2.  Disagree 

3.  Undecided 

4.  Agree 

5.  S.  Agree 


Disagree 

Undecided 

Agree 

-  15. 0* 

-  22.5% 

-  62. 5% 

MEAN 

S  .D. 

MEDIAN 

MINIMUM 

MAXIMUM 

3.725 

1.012 

4.000 

2.000 

5.000 

34.  I  think  the  VVAM  protocol  helped  me  understand  matrix 
operations  better  than  I  could  have  understood  them 
under  typical  classroom  conditions. 

RESPONSE  FREQUENCY 


1.  S.  Disagree 

2.  Disagree 

3.  Undecided 

4.  Agree 

5.  S.  Agree 


Disagree 

-  17.5% 

Undecided 

-  10. OX 

Agree 

-  72. 5% 

MEAN 

S.D. 

MEDIAN 

MINIMUM 

MAXIMUM 

3.675 

9 . 167E-01 

4.000 

2.000 

5.000 
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